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1 .  INTRODUCTION 


Name  of  Project 


ROTC  Cadet  Information  System  (RCIS) 


Name  of  Organization 


U.S.  Air  Force 
AFROTC  Detachment  020 
University  of  Arizona 
Tucson,  Arizona  85721 
(602)  621-3521 


Contact  Person 


Ms .  Peggy  Mittendorf 

AFROTC  Detachment  020  Secretary 


Advisors  to  the  Project 


Dr .  Sudha  Ram 

Department  of  Management  Information  Systems 
Short  Description  of  the  Organization 


The  AFROTC  Detachment  020  staff  is  comprised  of  five 
officers,  three  enlisted  personnel  and  two  civilians. 
This  staff  is  responsible  for  the  training  of  approximately 
200  cadets  as  well  as  maintaining  their  records  and  serving 
as  liaison  for  approximately  50  AFIT  students  attending  the 
University  of  Arizona.  Colonel  Charlie  Hastings  is  the 
detachment  commander,  and  Ms.  P.  Mittendorf  is  his  secretary. 
The  officers  reporting  to  Colonel  Hastings  are  Major  R. 
Youmans  (Commandant  of  Cadets /Freshman  Instructor),  Major  D. 


Smith  (Education  &  Training  Of ficer/ Senior  Instructor),  Captain 


J.  Dougherty  (Recruiting  Of ficer/ Sophomore 


Instructor) , 


Captain  K.  Nonaka  (Drill  Team  Advisor/ Junior  Instructor). 
Also  reporting  to  Colonel  Hastings  is  Technical  Sergeant  G. 
Cobo  (Detachment  Non-commissioned  officer  in  charge).  He 
supervises  Technical  Sergeant  R.  Nicholson  (underclassmen 
records  administrator)  and  Sergeant  D.  McGrath  (upperclassmen 


records  administrator) 


Mr.  R.  Haney  serves  as  the  Uniform 


Custodian  and  is  responsible  to  Colonel  Hastings, 


Statement  of  the  Problem 


The  Detachment's  present  system  involves  a  myriad  of 
forms  dealing  with  a  variety  of  personnel  information  and 


suspense  dates  for  required  reports. 


This  information 


includes  testing,  rating,  and  grading  results  as  well  as 
personal  information  on  all  of  cadets  and  AFIT  students. 
All  information  gathering  is  done  manually. 

One  of  the  major  problems  the  detachment  staff  faces 
under  the  current  system  is  the  amount  of  time  it  takes  to 
collate  information  from  the  various  Air  Force  and 
Detachment  forms  and  present  information  in  a  usable  format. 
This  takes  a  considerable  amount  of  time  for  one  cadet  and  even 
longer  when  information  must  be  gathered  on  different  groupings 
of  cadets. 
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2.  DEVELOPMENT  OF  RCIS 


Purpose  of  the  Project 


The  purpose  of  the  project  is  to  develop  a  computerized 


database  system  (RCIS)  for  the  AFROTC  Detachment  020  Cadet 


files.  After  the  database  records  have  been  fully  audited,  the 


database  will  provide  the  means  for  the  detachment  staff  to 


quickly  access  their  files,  efficiently  process  a  wide  variety  of 


ad  hoc  queries,  and  produce  hard-copy  reports  based  on  those 


queries 


Contents  of  the  Project 


RCIS  will  provide  a  menu-driven  interface  that  allows  the 


user  to  enter,  update,  archive  and  delete  cadet  records  that  are 


now  stored  on  various  forms  in  large  metal  filing  cabinets.  The 


system  will  also  provide  a  query  interface  that  allows  the  user 


to  develop  an  ad  hoc  query  without  using  the  dBASE  III  PLUS 


command  language.  Finally,  RCIS  will  provide  utilities  that 


automatically  create  backup  copies  of  required  system  database 


files  . 


Classification  of  System  Components 


The  system  contains  the  following: 


Assembly  lanquage  driver  to  create  pop-up  menus 
(Created  by  Stephen  M.  Curran) 

Data  entry  and  update  screens 
Review  screens 
Ad  hoc  query  generator 
Archive  utilities 

Automatic  backup  and  reload  utilities 


Methodology 


The  following  methodology  was  used  to  complete  the  proposed 
project : 

a.  Analysis  of  previous  manual  system 

b.  User  review  of  proposed  system 

c.  Design  of  database 

d.  Design  of  data  entry  utilities 

e.  Validation  of  data  entry  utilities 

f.  Redesign  of  data  entry  utilities 

g.  Design  of  query  interface 

h.  Validation  of  query  interface 

i.  Redesign  of  query  interface 
J .  User  Training 

k.  Installation  of  final  system 


Software  Required 


dBASE  PLUS  III,  Version  1.1  or  higher. 


Hardware  Required 

RCIS  was  designed  for  an  IBM  PC/XT,  PC/AT  or  MS-DOS 
compatible  configured  with  one  floppy  diskette  drive  and  one  hard 
disk  drive. 

User  Documentation 

System  documentation  consists  of  a  User's  Manual  and  a 
Technical  Reference  Manual.  The  User's  Manual  is  intended  to 
assist  the  users  in  operating  and  maintaining  the  system.  The 
Technical  Manual  provides  documentation  for  the  design  of  the 
databases  and  the  system  software.  The  Technical  Manual  is 


intended  primarily  as  a  programmer’s  maintenance  guide. 


3 .  TASK  PROGRESS 


Analysis  of  Previous  System 

The  initial  interviews  with  members  of  the  detachment  staff 
were  conducted  by  Ron  Crane,  Gary  McAlum,  Gary  Talbot  and  myself 
during  January  and  February  1987.  The  purpose  of  the  interviews 
was  to  collect  background  information  to  design  a  mainframe 
database  application  for  the  MIS  531B  class  project. 

We  conducted  the  interviews  in  two  phases.  The  first  phase 
concentrated  on  the  executive  staff's  view  of  how  the  database 
system  could  automate  the  manual  compilation  of  cadet  data  used 
to  complete  reports  and  forms  required  by  Headquarters  AFROTC. 
The  executive  staff  concluded  that  the  proposed  database  system 
would  drastically  reduce  the  amount  of  time  necessary  to  organize 
the  required  data  and  would  give  the  entire  staff  more  time  to 
dedicate  directly  to  the  cadets.  The  executive  staff  was  so 
excited  about  the  project  that  they  immediately  put  in  a 
requisition  for  the  Zenith  PC  micro- computer  system  which  would 
be  used  to  implement  the  PC  based  system. 

The  second  analysis  phase  consisted  of  interviews  with 
individual  members  of  the  executive  and  administrative  staff. 
Data  field  requirements  were  obtained  from  each  individual  and, 
after  a  few  data  analysis  and  user  review  sessions,  the  required 
group  of  data  fields  was  agreed  upon.  Each  person  on  the 
staff  submitted  the  types  of  data  groupings  (queries)  they 
performed  and  we  designed  a  set  of  query  functions  to  meet  the 
staff's  requests.  The  staff  reviewed  the  query  functions  and 
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minor  modifications  were  made. 


User  Review  of  Proposed  System 

The  entire  staff  was  briefed  on  the  overall  functional 
requirements  developed  from  the  information  gathered  and  their 
final  approval  was  obtained  before  we  began  the  database  system 
design.  We  advised  the  staff  that  the  prototype  system  would  be 
developed  on  the  university  mainframe  computer  system  and  that 
the  final  deliverable  system  would  be  transported  to  the  office 
microcomputer  using  dBASE  III  PLUS. 

In  April  1987,  the  prototype  system  was  demonstrated  for  the 
detachment  staff.  We  reviewed  the  previously  accepted  system 
requirements  and  discussed  possible  changes  required  for  the 
micro-based  system.  It  was  enthusiatically  received  by  all 
members  of  the  staff  and  approval  was  given  to  begin  conversion 
onto  the  Zenith  PC  system. 

Design  of  the  Database 

The  database  design  used  for  the  mainframe  application 
reqtiired  revision  before  it  could  be  efficiently  implemented  on  a 
microcompviter .  The  prototype  system  structure  was  analyzed  to 
determine  the  best  structure  which  would  provide  optimum 
performance  in  the  dBASE  III  PLUS  environment  on  the  PC.  The 
system  was  required  to  support  two  classes  of  cadet  records: 
cadets  currently  enrolled  in  the  AFROTC  program  and  cadets  who 
either  disenrolled  or  successfully  completed  the  program.  By 
separating  the  active  and  inactive  records,  system  performance 


could  be  substantially  improved.  In  addition,  this  separation 
would  also  simplify  query  processing.  For  a  detailed  discussion 
of  the  database  design,  refer  to  the  Technical  Reference  Manual. 

Design  of  Data  Entry  Utilities 

The  initial  utilities  incorporated  into  the  system  included 
the  basic  data  entry  and  maintenance  utilities,  i.e.  Add,  Edit, 
View,  Delete  and  Transfer.  The  administrative  staff  was 
concerned  with  the  magnitude  of  data  entry  effort  required  to 
audit  and  enter  200  cadets  (over  500  characters  each,  for  a  total 
of  over  100,000  characters).  To  facilitate  this  effort.  a  data 
entry  form  was  designed  which  matched  the  data  field  order  on  the 
system's  data  entry  screens.  This  form  would  be  used  to  gather 
cadet  data  from  the  various  cadet  files  for  entry  into  the 
system.  In  the  future  it  would  be  used  to  enter  a  new  cadet's 
data  which  could  be  gathered  from  an  initial  interview  or  a 
package  of  background  information  received  from  the  cadet.  A 
paging  function  was  incorporated  to  allow  the  user  to  easily 
locate  the  data  entry  screen  which  contained  the  data  fields  they 
needed  to  update. 

Validation  of  Data  Entry  Utilities 

The  Zenith  PC  I  developed  the  system  on  was  located  in  the 
detachment's  administrative  office,  so  I  had  the  opportunity  for 
the  staff  to  informally  review  the  system's  progress  almost  on 
a  weekly  basis.  Several  semi-formal  review  sessions  were 
conducted  to  familiarize  the  staff  with  the  evolving  system 


capabilities.  During  these  sessions,  additional  database  field 


requirements  were  identified  for  inclusion  in  the  cadet  database 


files  . 


Redesign  of  Data  Entry  Utilities 


The  additional  fields  were  added  and  corrections  to  the  data 


entry  utilities  were  completed  in  July  1987.  By  this  time,  the 


administrative  staff  had  began  to  gather  data  from  the  cadet 


files  and  had  completed  approximately  10  data  entry  forms. 


Design  of  Query  Interface 


In  the  past,  the  detachment  staff  had  been  unable  perform 


numerous  desirable  ad  hoc  queries  because  the  manpower  required 


to  manually  search  the  existing  file  system  was  prohibitive. 


RCIS  provides  the  database  structure  that  should  facilitate 


processing  queries.  Unfortunately,  detachment  staff  personnel 


have  no  experience  with  the  dBASE  III  PLUS  command  language.  To 


handle  the  staff's  future  query  processing  requirements,  a 


general-purpose  friendly  interface  was  essential, 


The  query  requirements  gathered  during  the  prototype  design 


were  used  as  a  basis  for  the  design  of  the  query  input  screens. 


The  query  input  screens  were  designed  to  allow  the  user  to 


constrain  predefined  data  fields  or  set  ranges  of  values  for  the 


predefined  fields  by  using  relational  operators.  The  predefined 


fields  on  the  input  screen  are  designed  to  give  the  user  maximum 


flexibility  in  processing  queries  for  that  particular  type  of 


query 


The  interface  is  restricted  in  the  sense  that  it  only 


f 


allows  the  user  to  specify  AND  conditions,  but  for  almost  all 
cases,  this  is  not  a  severe  restriction.  In  addition  to  allowing 
the  user  to  process  a  wide-variety  of  query  requirements,  the 
query  interface  output  screens  and  reports  were  meticulously 
designed  to  efficiently  use  the  space  provided  on  the  screens  and 
reports . 


Validation  of  Query  Interface 


As  was  the  case  with  the  data  entry  utilities,  I  had  the 
opportunity  for  the  staff  to  informally  review  the  system's 
progress  almost  on  a  weekly  basis.  Once  again,  semi-formal 
review  sessions  were  conducted  to  familiarize  the  staff  with  the 
evolving  capabilities  of  the  query  interface.  During  these 
sessions,  additional  predefined  input  field  requirements  were 
identified  for  inclusion  on  the  query  input  screens  and  data 
fields  in  the  query  output  formats  were  identified  for  addition 
and  deletion. 


Redesign  of  Query  Interface 


The  predefined  fields  were  added  to  the  query  input  screens 
and  corrections  were  completed  in  August  1987.  By  this  time  the 
administrative  staff  had  completed  approximately  30  cadet  data 
entry  forms. 


User  Training 


User  training  for  the  data  entry  utilities  and  the  query 
interface  was  conducted  during  the  first  week  of  September  1987. 


Most  of  the  staff  had  little  previous  experience  with  micro¬ 
computers  but  they  all  expressed  a  willingness  to  learn. 

We  reviewed  .each  of  the  basic  data  entry  procedures  and 
walked  through  a  few  example  entry  sessions  to  show  the  staff  how 
to  navigate  their  way  through  the  system.  We  reviewed  the  basic 
query  input  and  output  formats  by  performing  some  example  queries 
on  test  data  previously  entered  onto  the  database.  I 
demonstrated  how  each  of  the  10  high  level  queries  were  designed 
to  provide  flexiblity  in  performing  more  specific  queries  in 
addition  to  their  primary  stated  function. 

Installation  of  Final  System 

The  final  system  is  a  Run-Time<-  version  of  the  data  entry 
utilities  and  the  query  interface.  The  Run-Time+  utility 
encrypts  and  compresses  the  dBASE  III  PLUS  source  code  and 
provides  a  faster  running  system.  The  actual  source  code  will  be 
stored  on  two  separate  floppy  disks  in  a  secure  location  and  will 
not  be  available  on  the  hard  disk  or  the  system  load  disks.  This 
will  ensure  that  no  unauthorized  changes  can  be  made  to  the 


source  code. 


4 .  FINAL  REMARKS 


Contribution  to  the  Field  of  MIS 

This  master's  project  has  produced  a  custom  designed  database 
system  that  provides  straightforward  data  entry  utilities  and  a 
nonprocedural,  user-friendly  interface  for  query  processing.  The 
basic  system  menu  was  coded  in  assembly  language  by  Stephen  M. 
Curran  and  it  duplicates  the  flexible  ASSIST  level  menu  system 
provided  by  dBASE  III  PLUS. 

The  project  demonstrates  the  effectiveness  of  employing  the 
following  techniques  in  designing  a  system: 

a.  Initial  analysis  performed  using  a  formal 

requirements  collection  approach. 

b.  Initial  system  design  and  confirmation  of  system 
requirements  accomplished  by  using  a  prototype. 

c.  Soliciting  user  validation  of  the  system 

performance  during  critical  phases  in  the  system 
development . 

Practical  Experience  Gained 

The  project  provided  experience  in  designing  a  database 
application  from  two  perspectives:  first  from  the  mainframe 

perspective  and  then  for  the  micro- computer  environment.  I  was 
surprised  at  the  number  of  database  structure  changes  and 
database  language  function  changes  required  to  convert  the 
mainframe  database  design  into  a  design  which  would  provide 
optimum  performance  in  the  dBASE  III  PLUS  micro-computer 
environment . 

Although  the  detachment  staff  was  very  cooperative  in  this 


endeavor,  their  lack  of  experience  with  micro- computers  often  led 
to  misunderstandings  as  to  what  they  really  wanted  from  the 
system.  However,  this  project  was  a  success  because  those 


misunderstandings  were  overcome  by  allowing  the  individual  staff 
members  to  participate  and  to  shape  the  direction  of  the  system. 
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1 . 0  INTRODUCTION . 


This  manual  provides  operating  instructions  for  the  ROTC 
Cadet  Information  System  (RCIS),  version  1.10.  In  the  sections 
that  follow,  you'll  be  introduced  to  RCIS  data  files,  and  you'll 
be  shown  how  to  access  data  entry,  query  and  maintenance 
functions.  Additional  technical  data  is  available  in  Section  5. 

1.1  OVERVIEW. 

RCIS  consists  of  two  major  groupings  of  files.  Active  files 
contain  data  on  cadets  currently  enrolled  in  the  AFROTC  program. 
Inactive  files  contain  data  on  cadets  who  either  disenrolled  or 
successfully  completed  the  program.  Within  each  of  these  file 
groupings  there  are  two  major  subdivisions: 

a.  Cadet  Master  file. 

b.  Cadet  Pay  file. 

The  cadet  master  file  contains  personal,  administrative, 
academic  and  corps  information  for  each  cadet .  The  cadet  master 
file  is  the  most  important  database  file  because  all  the  other 
database  files  are  used  to  support  the  master  file  information. 
The  cadet  master  record  can  be  thought  of  as  the  parent  record 
for  the  cadet  pay  records,  therefore,  a  master  record  must  be 
created  before  any  associated  pay  records  can  be  added  to  the 
database.  The  cadet  pay  records  contain  required  pay  data  for 
cadets  who  are  contractually  obligated  to  the  AFROTC  program. 
There  can  be  multiple  pay  records  for  any  one  cadet  (current 


system  limitation  is  16  pay  records  but  system  could  be  modified 
to  a2‘'ow  an  unlimited  number).  The  remaining  database  files  are 
really  tables  of  information  created  to  facilitate  an  efficient 


database  design.  A  description 
as  follows: 

a.  Class  Enrollment  Totals 

b.  Weight  Standards 

c.  Aerobics  Run  Standards 

d.  WPSS  Multipliers 


of  each  of  these  files  is  given 


Contains  an  entry  for  each 
aerospace  studies  class  with 
an  associated  total 
enrollment  for  that  class. 

Contains  maximum  and  minimum 
allowable  weight  standards 
(male  &  female)  associated 
with  a  given  height. 

Contains  maximum  allowable 
run  times  (male  &  female) 
associated  with  a  given  age 
category . 

Contains  multiplier  values 
used  in  calculating  each 
cadet's  WPSS  score. 


RCIS  provides  you  with  the  functions  required  to  enter, 
update  (or  edit),  view,  delete  or  transfer  cadet  master  and  pay 
records.  The  system  also  allows  you  to  ’ask"  questions  about  the 
information  stored  in  the  database.  In  the  next  section  you'll 
be  shown  how  to  start  RCIS  and  how  to  use  basic  system  features. 


1.2  GETTING  STARTED. 


To  install  the  program,  insert  the  RCIS  system  1  diskette  in 
drive  A  and  type  the  following:  COPY  A:\DBASE\*.*  C:\DBAS2\*.* 
This  command  will  copy  basic  program  files  to  the  dBASE  III  PLUS 
subdirectory.  Next,  insert  the  RCIS  system  2  diskette  in  drive  A 
and  type  the  following:  COPY  A: \DBASE\* . *  C:\DBASE\*.*  This 


i 

> 


will  copy  database  definition  files  and  other  required  files  to 
the  dBASE  III  PLUS  subdirectory. 
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> 
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To  start  RCIS  you  must  load  dBASE  III  PLUS.  Ensure  that  the 
computer  system  is  in  the  dBASE  III  PLUS  subdirectory  by  typing 
the  following:  CD  C:\DBASE  When  the  system  prompt  returns 
simply  type  DBASE  and  wait  for  dBASE  III  PLUS  to  be  loaded. 
Once  dBASE  III  PLUS  has  been  loaded,  press  the  <Esc>  key.  This 
will  move  the  cursor  from  the  ASSIST  menu  and  place  it  at  the 
bottom  left  hand  comer  of  the  text  window.  To  start  RCIS,  type 
DO  RCIS.  After  a  short  delay  you  should  see  the  inital  RCIS 
screen  shown  below. 


I  INITIALIZING  RCIS 


While  the  log-on  screen  is  displayed,  the  program  starts  to 
INITIALIZE  information  required  to  operate  the  system.  This  set- 


-up  process  will  require  about  15  seconds  to  complete.  Once 
INITIALIZATION  is  finished,  the  log-on  screen  will  be  replaced  by 
the  screen  shown  below. 
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Figure  1.2  RCIS  Function  menu. 

You've  started  RCIS  and  are  now  ready  to  begin  data  entry. 
The  next  sections  will  discuss  how  to  access  particular  functions 
to  enter  or  manipulate  RCIS  records. 


2.0  THE  MENU  INTERFACE. 


RCIS  allows  you  to  specify  the  type  of  processing  you  want 
to  do  by  selecting  from  a  menu.  The  menu  interface  was  designed 
to  be  similar  to  the  existing  dBASE  III  PLUS  ASSISTANT  interface. 
This  section  discussed  how  to  make  selections  using  the  menu 
interface . 


2 . 1  FUNCTION  MENU . 


The  function  menu  is  the  first  menu  presented  to  you  after 
INITIALIZATION  has  been  completed  (see  Figure  1.2).  You  will  use 
this  menu  to  designate  the  type  activity  you  wish  to  perform. 
You  are  presented  with  8  options: 


a.  Add 

b .  Edit 


c.  View 


d.  Delete 


Choose  this  function  if  you  wish  to  create  a 
new  record. 

Select  this  option  if  you  wisi.  to  update  or 
make  changes  to  a  specific  record  that 
already  exists. 

Choose  this  option  if  you  desire  to  look  at  a 
specific  record,  but  don't  want  to  alter  any 
information.  This  function  is  used  to 
prevent  inadvertent  data  alterations  that 
might  occur  if  you  had  selected  edit. 

Select  this  function  to  delete  a  specific 
record.  If  a  cadet  master  record  is  selected 
for  deletion,  then  all  associated  cadet  pay 
records  for  that  master  record  are  also 
deleted. 


e.  Transfer  -  Choose  this  option  to  move  a  cadet  master 

record  and  all  its  associated  pay  records 
either  from  the  active  to  the  inactive  file, 
or  from  the  inactive  to  the  active  file. 

f.  Query  -  Select  this  option  to  perform  queries  on  the 

database  files. 
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g.  dBASE 


Select  this  option  to  exit  RCIS  and  return  to 
dBASE  III  PLUS. 


h.  Exit  -  Select  this  option  to  exit  RCIS  and  return  to 

the  computer  system  prompt. 


To  select  a  function  from  the  menu,  press  either  the  up 
arrow  key  or  the  down  arrow  key  (located  on  the  key  pad). 
Continue  pressing  the  up  or  down  arrow  key  until  the  function  you 
want  to  select  is  highlighted.  You  complete  your  function 
selection  by  pressing  the  <Enter>  key.  If  you  inadvertently  made 
an  erroneous  choice,  you  can  return  to  the  function  menu  by  later 


pressing  the  <Esc>  key. 


NOTE 


If  the  highlight  doesn't  change,  check  the  NUM  LOCK 
light.  If  it  is  illuminated,  you're  in  number  keypad 
mode.  Press  the  NUM  LOCK  key  to  activate  the  cursor 
keypads . 


2 . 2  GROUP  MENU . 


After  you've  selected  a  function,  another  menu  will  appear 
next  to  the  function  menu  (see  Figure  2.1).  This  menu  is  used  to 
select  records  from  either  the  active  or  inactive  database  files. 
Again,  press  the  cursor  keys  to  highlight  your  choice  and  press 
the  <Enter>  key.  If  you  have  made  a  mistake  in  choosing  either  a 
function  or  a  group,  you  can  "roll-back"  to  a  previous  menu  by 
pressing  the  <Esc>  key  until  the  desired  menu  becomes  active. 


Figure  2.1  RCIS  Group  menu 

2.3  RECORD  MENU. 

After  selecting  a  database  group,  another  menu  will  appear 
on  the  screen.  This  new  menu  is  used  to  select  the  record  type 
that  you  want  to  access.  As  shown  in  Figure  2.2,  there  are  two 
record  types  to  choose  from  (Cadet  Master  and  Cadet  Pay).  Again, 
you  select  the  desired  record  type  by  highlighting  your  choice 
using  the  cursor  keys  and  pressing  the  <Enter>  key.  If  your 
previous  menu  selections  are  incorrect,  press  the  <Esc>  key  to 
"roll  back"  to  the  menu  that  must  be  corrected. 

There  are  only  two  function  selections  that  will  generate  a 
different  sequence  of  menus  than  shown  in  Figure  2.2.  If  your 
function  choice  was  Transfer,  an  access  key  input  request  will 
appear  in  the  bottom  lefthand  corner  of  your  screen  as  shown  in 
Figure  2.3.  The  menu  shown  in  Figure  2.7  will  appear  if  you 
selected  the  Query  function. 


2.4  ACCESS  KEY  INPUT. 


After  you  have  selected  a  record  type  (for  Transfer  function 
after  you  have  selected  a  group  type),  an  access  key  input 
request  will  appear  in  the  bottom  iefthand  corner  of  your  screen. 
For  the  Add  and  Transfer  functions  the  request  will  appear  as 
shown  previously  in  Figure  2.3  and  in  Figure  2.4.  For  the  Edit, 
View  and  Delete  functions  the  request  will  appear  as  shown  in 


Figure  2.5. 


The  data  items  you  will  be  entering  (social 


security  number,  first  name,  middle  name  or  last  name)  are  known 
as  access  keys.  Basically  you  can  consider  a  database  to  be  an 
extended  file  cabinet  that  is  very  thoroughly  cross-referenced. 

For  example,  you  might  like  to  locate  a  cadet  record  in  your 
manual  file  system,  but  all  you  have  is  the  social  security 
number.  If  the  file  system  is  arranged  alphabetically  by  cadet 
name,  you  might  not  be  able  to  find  the  folder;  however,  if  you 
had  a  card  file  that  cross-references  social  security  numbers 
with  names,  you  could  easily  locate  the  required  record. 
Databases  use  this  same  approach.  Special  files  (called  index 
files)  are  used  to  cross-reference  the  location  of  a  particular 
record.  These  indices  allow  you  to  use  various  data  items  as 
keys  to  finding  the  desired  record. 

So,  before  we  can  locate  a  record  in  our  database  we  must 
specify  how  to  look  for  it.  The  access  key  input  request  allows 
you  to  locate  records  in  two  different  ways  (except  for  the  Add 
and  Transfer  functions).  You  will  be  able  to  locate  records  by 
using  the  cadet's  social  security  number  or  by  using  a  portion  of 


their  name  that  uniquely  identifies  the  cadet  from  all  the 
others  on  the  database.  If  you  enter  a  social  security  number 
and  a  name,  the  system  will  default  to  use  only  the  social 
security  number. 

After  the  access  key  input  request  appears  on  the  screen, 
you  can  not  "roll  back"  to  a  previous  menu;  however,  you  can 
still  abort  the  operation  by  pressing  the  <Esc>  key  before 
entering  any  data  in  the  highlighted  fields. 


NOTE 


If  you  have  selected  the  Edit  function  and  the  system 
has  successfully  located  the  record  you  want  to  edit, 
the  system  will  ask  you  if  you  would  like  to  change  the 
cadet's  social  security  number  (  perhaps  it  was 
initially  entered  incorrectly  ).  If  you  respond  by 
entering  a  <Y>  then  an  access  key  change  request  will 
appear  as  shown  in  Figure  2.6.  You  will  be  shown  the 
current  access  keys  (social  security  number  and  name) 
for  the  record  and  be  given  the  opportunity  to  change 
only  the  social  securtiy  number. 
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Figure  2.5  Edit,  View  &  Delete  functions  menu  sequence 
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Figure  2.6  Edit  function  access  key  change  request 


2.5  QUERY  SELECTION  MENU. 


The  query  selection  menu  will  appear  as  shown  in  Figure  2.7 
if  you  have  selected  the  Query  function.  This  menu  allows  you  to 
select  the  particular  query  type  you  need  to  process  your 
database  questions.  The  method  for  selecting  from  this  menu  is 
the  same  as  the  previous  menus,  i.e.  choose  selection  using  the 
cursor  keys  and  then  press  the  <Enter>  key  and  if  previous  menu 
selections  are  incorrect,  press  the  <Esc>  key  to  "roll  back"  to 
the  menu  that  must  be  corrected.  Each  type  of  query  has  its  own 
query  input  form  (see  Appendix  A)  which  shows  you  the  constraint 
fields  for  that  particular  type  of  query.  These  forms  are 
discussed  in  more  detail  in  Section  3.4  DATABASE  QUERIES. 


2.6  OUTPUT  MEDIA  MENU. 


The  output  media  menu  appears  after  the  Query  selection  menu 
as  shovm  in  Figure  2.8.  This  menu  allows  you  to  specify  the 
device  and  format  to  be  used  to  display  the  results  of  query 
processing.  You  can  select  from  one  of  three  options: 


a. 

80- column  monitor 

This  option  will  direct  all  output 
to  the  screen. 

b. 

80- column  printer 

This  option  will  direct  all  output 

to  the  printer  using  standard  font 
(12  pitch)  and  standard  paper  size. 

c . 

132- column  printer  - 

This  option  will  direct  all  output 
to  the  printer  using  compressed 
mode  (17  pitch)  and  standard  size 

paper. 

The  method  for  selecting  from  this  menu  is  the  same  as  the 
previous  menus,  i.e.  choose  selection  using  the  cursor  keys  and 
then  press  the  <Enter>  key  and  if  previous  menu  selections  are 
incorrect,  press  the  <Esc>  key  to  "roll  back"  to  the  menu  that 
must  be  corrected. 


ROTC  CADET  INFORMATION  SYSTEM  (RCIR) 


nJNCTION 


Add 

Edit 

View 

Delete 

Trane  fer 

Query 

dRASE 

Exit 


GROUPS 

QUERY  TYPE 

QUERY 

OUTPUT 

Active 

Inactive 

WPSS  Info 
Schlrahp  Qiial 

80-CoI 

RO-Col 

Screen 

Printer 

ntt  iiiLW 

2-yr  Pgm  Cand 
Com  Date  Susp 
Schlrshp  Expr 
Weigh/Aerobic 
Individual 

Pay  Info 

SEI.ECT  OUrrUT  MEDIA 


Figure  2.8  RCIS  Output  Media  menu 


3.0  SPECIFYING  THE  RECORD  TO  PROCESS. 

Once  you  have  selected  a  function,  group,  record  type  and/or 
entered  an  access  key,  the  system  prints  a  message  informing  you 
that  it  is  opening  requested  files  and  that  it  is  searching  for 
the  designated  record.  If  you've  selected  the  Add  function,  the 
system  will  check  to  ensure  that  no  duplicate  record  already 
exists  because  you  are  only  permitted  to  create  a  record  with  a 
unique  access  key.  If  you've  selected  the  Transfer  function,  the 
system  will  check  to  ensure  that  no  duplicate  record  already 
exists  on  the  destination  file  because  you  are  not  permitted  to 
transfer  a  record  if  it  would  cause  duplicates  to  exist  on  the 
destination  file.  For  the  Edit,  View  and  Delete  functions, 
you're  searching  to  find  a  record  that  should  already  exist. 

The  system  will  inform  you  of  the  result  of  the  search  if  a 
special  case  has  been  encountered.  For  example,  if  you've 
selected  the  Add  function  and  a  record  has  already  been  assigned 
to  the  access  key  you've  input,  the  system  bell  will  sound  and  an 
appropriate  message  will  be  displayed.  In  another  situation,  you 
may  have  selected  the  Edit  function  and  the  system  is  searching 
for  the  designated  record,  but  was  unable  to  locate  it  (usually 
because  of  a  typographical  error).  The  system  bell  will  sound 
and  a  MASTER  (or  PAY)  RECORD  NOT  FOUND  message  will  be  displayed. 
Another  special  case  can  occur  when  you've  specified  a  non-unique 
access  key,  e.g.  LAST  NAME  =  SMITH.  In  this  instance  the  system 
will  advise  you  if  more  than  one  record  exists. 

If  a  system  message  is  displayed,  you  are  given  further 


instructions.  For  example,  you  might  be  asked  if  you  wish  to  try 
again  or  you  may  simply  be  asked  to  press  any  key  to  continue. 
Once  you've  ended  a  transaction,  the  menu  screen  will  reappear 
and  you'll  be  asked  if  you  want  to  continue  in  the  same  mode.  If 
you  answer  <Y>,  then  you'll  be  prompted  to  input  a  new  access  key 
value.  If  you  answer  <N> ,  then  the  system  will  close  its  working 
files  and  you'll  be  returned  to  the  select  function  menu.  At 
this  point,  you  can  choose  another  function  and  continue 
processing  or  you  can  elect  to  exit  RCIS. 

3.1  ADDING,  EDITING  AND  VIEWING  RECORDS. 

If  the  search  operation  has  been  successfully  concluded,  the 
next  screen  that  appears  will  be  the  initial  data  entry  or  data 
view  screen  (see  Figure  3.1  for  master  record  and  Figure  3.2  for 
pay  record).  You  are  then  free  to  enter  data  or  modify  data  in 
any  field  that  is  highlighted  (no  highlighted  data  fields  on  the 
View  function  screens).  Use  the  cursor  keys  to  maneuver  around 


SSAN  222-22-2222 


Hatric  it 


First  Name 
Middle  Name 
Last  Name 


Age  Sex 

Blrthdate  /  / 


lOCAL 

Street  Address 
City 

Zip  Code 

Phone 

- 

PERMANENT 


Street  Address 
City 

State  Zip  Code 


Phone  (  ) 


Figure  3.1 


Initial  data  entry/view  screen  for  Master 
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Figure  3,2  Data  view  screen  for  Pay  records 


3.1.1  MASTER  RECORDS . 


The  master  record  data  forms  are  four  pages  (screens)  long 
and  you  can  advance  to  the  next  page  by  pressing  the  <PgDn>  key 
or  you  can  go  back  to  the  previous  page  by  pressing  the  <PgUp> 
key.  If  you  <PgDn>  past  the  last  page  or  <PgUp>  past  the  first 
page,  the  record  transaction  will  be  terminated.  Another  way  to 
terminate  a  record  transaction  is  to  press  the  <Ctrl>  <End>  keys. 
During  editing,  you  can  abort  any  changes  and  restore  the  record 
to  its  initial  state  by  pressing  the  <Esc>  key. 

3.1.2  PAY  RECORDS. 

All  pay  records  associated  with  the  input  access  key  will 
be  displayed  on  the  same  screen  (see  Figure  3,3).  If  you've 
selected  the  Add  function,  you  can  add  the  pay  record  input  data 
to  the  database  by  pressing  one  of  the  following  key  sequences: 
<PgUp>,  <PgDn>,  <Esc>,  <Ctrl><End>.  If  you've  selected  the  Edit 
function,  the  system  will  prompt  you  to  enter  the  corresponding 
record  number  for  the  pay  record  you  would  like  to  change  (record 
numbers  are  listed  on  the  screen).  After  you've  entered  the 
desired  record  number  and  pressed  the  <Enter>  key,  the  system 
will  highlight  the  pay  record  you  have  selected.  The  new  pay 
record  input  data  can  be  added  to  the  database  by  pressing  one  of 
the  following  key  sequences:  <PgUp>,  <PgDn> ,  <Esc>,  <Ctrl><End>. 
The  system  will  unhighlight  the  pay  record  and  prompt  you  for 
another  selection. 
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NOTES 

A  <Y>  is  required  in  the  ADD  field  for  the  pay  record 
to  be  added  to  the  database.  A  <N>  in  the  ADD  field 
will  cancel  the  add  and  it  is  che  only  way  to 
terminate  this  function. 

The  beginning  and  ending  dates  for  each  pay  record  are 
used  to  define  the  pay  period  for  that  record.  There 
is  extensive  error  checking  done  to  ensure  that  these 
pay  periods  do  not  overlap.  In  other  words,  the  system 
will  not  allow  you  to  input  pay  dates  which  would  cause 
pay  periods  to  overlap. 
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Figure  3.3  Data  entry  screen  for  Pay  records 


3.2  DELETING  RECORDS. 


The  delete  function  has  been  provided  to  allow  you  to  remove 
a  record  from  the  database.  During  data  audits,  you  should  look 
for  extraneous  or  unwanted  records.  These  unwanted  records 
should  be  deleted  from  the  system  because  they  will  eventually 
cause  the  system  to  become  less  efficient.  Their  presence  will 
require  longer  search  times  to  locate  valid  records  for 
processing . 

3.2.1  MASTER  RECORDS. 

There  are  two  ways  you  can  delete  a  master  record.  If  you 
have  made  a  lot  of  mistakes  in  entering  data  during  record 
creation  (Add  function)  or  have  just  decided  not  to  add  it,  you 
can  delete  the  record  before  it  is  added  to  the  system  by 
pressing  the  <Ctrl>  <U>  keys.  This  marks  the  record  for 
deletion.  The  system  will  indicate  that  the  record  was  marked 
for  deletion  by  placing  the  symbol  DEL  in  the  status  line  (see 
area  labeled  1  in  Figure  3.4).  After  you  exit  the  data  entry 
form,  RCIS  will  ask  you  if  you  want  to  delete  the  record.  Enter 
<Y>  if  you  want  to  delete  or  enter  <N>  if  you  want  to  retain  the 
record . 

Once  a  master  record  has  been  added,  the  only  way  to 
remove  it  is  by  using  the  Delete  function.  To  delete  a  master 
record,  select  tht  Delete  function,  specify  the  group  (inactive 
or  active)  and  specify  Cadet  Master  record  type.  The  system  will 
prompt  you  to  enter  the  access  key  value  for  the  record.  After 


conducting  a  record  search,  the  system  will  display  the  record 
for  confirmation.  You  can  scroll  through  the  record  pages  by 
using  the  <PgUp>  and  <PgDn>  keys.  When  you  are  finished  viewing 
the  record  press  the  <Ctrl>  <End>  keys  or  page  past  either  end  of 
the  record  pages.  The  system  will  ask  if  you  want  to  delete  the 
record.  Enter  <Y>  to  delete  the  record  or  press  <N>  to  retain. 
After  deleting  the  master  record,  the  system  will  delete  all  pay 
records  associated  with  that  master  record. 
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Figure  3.4  Deleting  a  Master  record  (from  Add  function) 


3.2.2  PAY  RECORDS . 


All  pay  records  associated  with  the  input  access  key  will 
be  displayed  on  the  same  screen  (see  Figure  3.5).  You  will  be 
prompted  to  enter  a  <Y>  in  the  DEL  field  of  each  pay  record  you 
want  to  delete.  When  you  have  finished  "marking"  the  desired  pay 
records  for  deletion,  press  one  of  the  following  key  sequences  to 
start  the  deletion:  <PgUp>,  <PgDn>,  <Esc>,  or  <Ctrl><End>.  The 
system  bell  will  sound  and  a  ONLY  DELETING  "MARKED"  RECORDS 
message  will  be  displayed  until  deletion  is  complete. 
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Figure  3.5  Delete  screen  for  Pay  records 
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3.3  TRANSFERRING  RECORDS. 

Overall  system  performance  can  also  be  improved  if  records 
for  disenrolled  or  graduated  cadets  are  transferred  to  the 
inactive  files.  The  system  provides  the  capability  to  transfer  a 
master  record  and  all  associated  pay  records.  The  process  is 
very  similar  to  deleting  a  master  record.  First,  select  the 
Transfer  function  and  indicate  the  current  location  of  the  record 
to  be  transferred  (active  or  inactive  file).  After  entering  the 
record  access  key  value,  the  system  will  search  for  and  display 
the  record.  You  can  scroll  through  the  record  pages  by  using  the 
<PgUp>  and  <PgDn>  keys.  When  you  are  finished  viewing  the  record 
press  the  <Ctrl>  <End>  keys  or  page  past  either  end  of  the  record 
pages.  You  will  also  be  given  the  option  of  viewing  the 
associated  pay  records.  The  system  will  then  ask  you  if  you  want 
to  transfer  the  record.  Enter  <Y>  to  transfer  or  enter  <N>  to 
cancel.  If  you  opt  to  transfer  the  record(s),  the  system 
displays  advisories  as  it  accomplishes  the  requested  processing. 

3.4  DATABASE  QUERIES. 

The  query  interface  is  the  work  horse  of  RCIS.  It  allows 
you  to  ask  questions  of  the  database  without  having  to  learn  the 
dBASE  III  PLUS  command  language.  The  query  input  screens  collect 
your  query  requirements  using  a  simple  form  that  allows  you  to 
set  search  restrictions  or  constraints.  This  means  you  can 
specify  a  range  of  values  for  a  field  to  be  used  in  the  database 
search. 
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To  access  the  query  interface,  select  the  Query  function, 
specify  the  file  group  (active  or  inactive),  choose  a  query  type 
and  select  an  output  media.  The  system  will  then  present  a  query 
input  form  that  allows  you  to  specify  the  constraints  required  to 
satisfy  your  question.  There  are  six  basic  symbols  used  to 
specify  search  requirements: 

a.  =  -  Indicates  you  want  to  specify  an  "equal  to 

condition"  for  the  search.  Using  this  symbol 
means  "show  me  only  those  records  with  values 
equal  to  this  condition." 

b.  <>  -  Indicates  you  want  to  specify  a  "not  equal  to 

condition"  for  the  search.  Using  this  symbol 
means  "show  me  only  those  records  with  values 
not  equal  to  this  condition." 

c.  >  -  Indicates  you  want  to  specify  a  "greater  than 

condition"  for  the  search.  Using  this  symbol 
means  "show  me  only  those  records  with  values 
greater  than  this  condition." 

d.  <  -  Indicates  you  want  to  specify  a  "less  than 

condition"  for  the  search.  Using  this  symbol 
means  "show  me  only  those  records  with  values 
less  than  this  condition." 

e.  >=  -  Indicates  you  want  to  specify  a  "greater  than  or 

equal  to  condition"  for  the  search.  Using  this 
symbol  means  "show  me  only  those  records  with 
values  greater  than  or  equal  to  this  condition." 

f.  <=  -  Indicates  you  want  to  specify  a  "less  than  or 

equal  to  condition"  for  the  search.  Using  this 
symbol  means  "show  me  only  those  records  with 
values  less  than  or  equal  to  this  condition." 


To  specify  a  query,  simply  enter  the  appropriate  symbols  in 
the  highlighted  operator  fields  and  enter  the  desired  values  in 
the  highlighted  data  fields.  When  you  are  finished,  press  the 
<PgDn>  key.  The  system  will  ask  two  questions  before  it 
processes  the  query.  First,  the  system  will  ask  you  if  you  want 


to  cancel  your  query.  Enter  <N>  to  continue  or  enter  <Y>  to 
cancel  the  query  and  return  to  the  select  function  menu.  If  you 
choose  to  continue,  the  system  will  ask  you  if  you  want  to  make 
any  corrections.  Enter  <N>  to  process  the  query  or  enter  <Y>  to 
return  to  the  input  form  and  make  corrections.  If  you  elect  to 
submit  the  query,  the  system  will  then  check  to  ensure  that  valid 
symbols  were  used  to  specify  the  question.  If  an  error  in  symbol 
use  is  detected,  you  will  be  asked  to  modify  the  query  input 

form.  If  no  errors  are  detected,  the  system  will  process  your 

query  and  display  the  results  on  the  media  selected  for  output. 

Example:  The  Professor  of  Aerospace  Studies  wants  a 

detailed  listing  of  WPSS  scores  (greater  than  or 
equal  to  75)  and  related  information  for  all 
sophomore  cadets  enrolled  in  the  AFROTC  program. 

Step  1.  Select  the  Query  function,  the  Active  group,  the 
WPSS  Info  query  type  and  the  Query  Output  of  your 
choice . 

Step  2.  The  WPSS  Query  input  screen  will  appear  and  you 
can  precede  to  enter  the  required  constraints  for 

this  query.  Since  we  are  only  interested  in 

sophomore  cadets,  we  will  have  to  constrain  the 
AS  CLASS  field.  In  addition,  we  are  only 
interested  in  the  sophomores  who  have  WPSS  scores 
that  are  greater  than  or  equal  to  75,  so,  we 
will  also  have  to  constrain  the  WPSS  Score  field. 
Finally,  the  query  requires  a  detailed  listing  so 
we  need  to  enter  a  <2>  in  the  Print  Options  field 

Step  3.  Enter  the  constraints  and  options  so  that  the 
query  input  screen  looks  like  the  one  in  Figure 
3.6.  Press  the  <PgDn>  key  when  you  are  finished 
and  the  system  will  give  you  the  opportunity  to 
cancel  the  query  or  to  make  changes  to  your 
input.  If  you  respond  with  a  <N>  for  both 
questions,  the  system  will  attempt  to  process 
your  query.  If  there  are  database  records  which 
meet  your  constraints,  your  query  output  will 
look  like  Figure  3.7  (80-column  format)  or  Figure 
3.8  (132-column  format). 
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Each  of  the  operator  field/data  field  constraint  pairs 
entered  on  the  screen  will  be  used  to  form  a  search 
condition  for  that  particular  query.  The  system  will 
locate  only  those  records  which  satisfy  all  the 
constraints  in  the  combined  search  condition,  i.e. 
constraint  1  AND  constraint  2  AND  constraint  3  AND  etc. 


Finally,  you  can  obtain  a  printed  copy  of  screen  output 


without  selecting  the  printer  option  directly.  Simply  press  the 


<Shift>  <PrtSc>  keys  to  direct  screen  output  to  the  printer. 


Please  note  that  you  are  limited  to  80- column  capacity  when  using 


the  screen  for  output.  The  132-column  printer  option  will 


provide  you  with  additional  information  associated  with  the 


particular  type  of  query  you  are  performing. 


WEIGHTED  POC  SELECTION  SYSTEM  (WPSS)  QUERY 


AS  Class  =  2 


WPSS  Score  >=  75 


Last  Name 


Print  Options 

Brief  -  1  ,  Detailed  -  2  2 


Query  Item  Operators! | 


Query  Values 


EXAMPLE  Last  Name  >=  *  Absence  of  Operator 

<  field  defaults  to  '=' 


ANDERSON 

SMITH 


Figure  3.6  Sample  Query  input  screen 
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WEIGHTED  POC  SELECTION  SYSTEM(WPSS)  REPORT 
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AFOQT 

AFOQT 

AFOQT 

Name 
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Rating 

Cum 

Cum 

AcAp 
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Verb 
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FRANK 
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7 

3.50 

1200  80 

80 

80 

AS 
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SAT 

SAT 

Schlr 

Pilot 

Class 

Rank 

Sem 

Math  Verb 

Type 

Liens 

3 

10/  1 

3.60 

600 

600 

3.0 

Y 

Phys 

Grad 

Coirnn 

DOB 

Age 

Date 

Date 

Date 

05/10/58 

28 

01/03/89 

01/10/86 

01/10/86 

Figure  3.7  Sample  Query  output  (80- column  format) 
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88 
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Pilot 
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F3P 

Mtjor  Date 


9/  23  3.81  8N  88# 


85/11/98  28  81/83/89  81/18/88  81/18/88 


iuxiliariee 


81/89/87  AA:S«! 


Figure  3.8  Sample  Query  output  (132- column  format) 


4.0  MAINTAINING  THE  DATABASE. 


This  section  discusses  techniques  and  procedures  that  should 
be  enforced  to  ensure  the  integrity  of  the  database.  These 
maintenance  procedures  include: 

a.  Data  entry  techniques. 

b.  Convention  establishment. 

c.  Data  audits. 

d.  Periodic  backups. 

e.  Reloading  the  database  after  system  disk  failure. 

4.1  DATA  ENTRY  TECHNIQUES. 

The  first  step  in  ensuring  the  integrity  of  the  information 
stored  within  the  system  is  to  enter  it  correctly  initially. 
This  is  am  important  factor  in  the  reliability  of  the  database, 
because  the  computer  has  no  idea  that  a  cadet’s  social  security 
number,  for  example,  has  been  entered  incorrectly.  Later,  when 
you  ask  the  system  to  retrieve  information  using  the  cadet's 
correct  social  security  number,  it  will  not  be  able  to  find  it. 
If  enough  data  entry  errors  have  been  introduced  to  the  system, 
the  value  of  the  database  is  compromised.  Eventually,  everyone 
will  lose  confidence  in  the  system’s  ability  to  provide  accurate 
information  for  their  use. 

While  data  entry  is  a  very  demanding  task,  it  can  also  be  a 
very  tedious  process.  There  are  two  recommendations  that  can 
help  ensure  that  the  number  of  entry  errors  are  reduced  or  caught 


before  moving  on  to  the  next  record.  First,  critically  review 
what  has  been  entered  before  you  commit  it  to  the  system.  This 
simple  process  can  help  you  catch  typographical  errors  that  might 
otherwise  be  entered  into  the  system.  Second,  take  frequent 
breaks.  Fatigue  will  cause  you  to  loose  concentration.  Couple 
this  with  the  repetitive  nature  of  data  entry  and  you  have  a 
situation  tha  invites  entry  errors. 

4.2  CONVENTION  ESTABLISHMENT. 

The  second  step  in  ensuring  data  integrity  is  to  establish 
conventions  for  data  entry  and  enforce  them.  A  convention  is 
simply  a  standardized  way  of  entering  information.  For  example, 
you  might  decide  that  the  cadet's  academic  major  (a  four- 
character  field)  should  be  entered  using  standardized  codes.  If 
the  same  academic  major  is  entered  using  different  coding,  the 
system's  integrity  is  reduced.  Essentially,  the  entry  must  be 
explicitly  the  same  because  computers  cannot  identify  things  in 
context  the  way  that  a  human  does.  For  example,  the  computer 
cannot  recognize  that  "EENG",  "EEGR" ,  "ELEN"  and  "ELCE"  all  refer 
to  the  same  academic  major  (Electrical  Engineering). 

One  approach  that  can  be  taken  is  to  create  a  convention 
book  that  lists  the  "rules"  for  entering  data  into  the  system. 
You  should  address  the  use  of  punctuation,  abbreviations,  codes 
and  any  other  areas  of  ambiguity  that  can  arise.  Once  you 
establish  conventions,  you  should  enforce  them. 
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4.3  DATA  AUDITS. 


The  third  method  to  ensure  data  integrity  is  to  accomplish  a 
periodic  data  audit.  This  essentially  means  that  you  should 
obtain  a  listing  of  information  in  the  system  and  examine  it  for 
typographical  errors  and  convention  violations.  While  there  is 
no  "hard  and  fast"  rule  governing  the  frequency  of  audits  for  a 
system,  there  are  several  general  criteria  that  can  be  used. 
First,  more  frequent  data  audits  should  be  performed  if  the  data 
entry  operatior  is  inexperienced.  Second,  if  the  system  is 
frequently  updated  or  new  records  are  added  frequently,  then  data 
audits  should  be  more  frequent.  If  the  data  entry  operatior  is 
experienced  or  if  the  database  is  fairly  stable,  then  the 
frequency  of  audits  can  be  minimized. 

You  can  use  the  Query  function  to  obtain  listings  to  assist 
you  during  data  audits.  The  advantage  of  using  the  Query 
function  is  that  you  can  limit  the  number  of  records  and  fields 
being  reviewed.  For  example,  you  can  elect  to  audit  academic 
data  for  freshman  and  sophomore  cadets  (AS_CLASS  =  1  or  2)  by 
using  the  SCHOLARSHIP /ACADEMIC  PERFORMANCE  query  to  limit  your 
data  output.  The  most  important  factor  is  that  the  auditor 
examine  the  data  critically.  If  errors  are  detected,  use  the 
Edit  function  to  make  the  required  corrections. 
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4 . 4  PERIODIC  BACKUPS . 


Once  you've  expended  the  time  and  energy  to  enter  and  verify 
the  data,  you  should  take  positive  action  to  protect  it  from 
loss.  You  can  do  this  by  obtaining  a  backup  of  the  entire 
contents  of  the  system  database  file*?.  RCIS  includes  a  special 
program,  RCISUTIL,  that  makes  it  very  easy  to  obtain  a  full 
backup  of  essential  files. 

To  invoke  the  backup  utility,  type  DO  RCISUTIL  from  within 
dBASE  III  PLUS.  You  will  be  presented  with  a  menu  that  allows 
you  to  select  either  Back-up  or  Reload  (see  Figure  4.1).  Select 
Back-up  by  pressing  the  cursor  keys  until  the  Back-up  option  is 
highlighted.  Then  press  the  <Enter>  key.  The  system  will  tell 
you  to  insert  a  blank  formatted  diskette  in  drive  A.  After 
inserting  the  diskette,  press  any  key.  The  program  will 
automatically  copy  all  required  files  to  the  backup  diskette.  If 
additional  diskettes  are  required  to  obtain  a  full  backup,  the 
system  will  instruct  you  to  insert  other  blank,  formatted 
diskettes.  It  will  continue  processing  until  all  required  files 
have  been  copied. 

After  the  backup  is  complete,  label  the  diskette  and  enter 
the  date  of  the  backup.  Then  store  the  diskette  in  a  safe  place. 
It  may  be  a  good  idea  to  make  another  backup  of  the  system  and 
store  it  in  a  remote  location.  This  can  prove  helpful  if  the 
first  backup  copy  is  lost  or  destroyed. 


RCIS  UTILITIES 


Figure  4.1  Database  utilities  menu  using  RCISUTIL 
4.5  RELOADING  THE  DATABASE  AFTER  SYSTEM  DISK  FAILURE. 

If  there  is  a  catastrophic  failure  of  the  system  hard  disk, 
you  can  recover  the  database  by  reloading  the  system  from  your 
backup.  Once  the  system  disk  is  replaced,  reinstall  dBASE  III 
PLUS  and  the  RCIS  program  files.  Then  execute  the  RCISUTIL 
program.  Choose  the  Reload  option.  The  system  will  advise  you 
that  this  option  will  overwrite  the  current  database.  You  can 
abort  the  process  if  you  have  inadvertently  selected  Reload. 
Otherwise,  continue  with  the  program.  If  you  elect  to  continue, 
the  system  will  ask  you  to  enter  the  system  password.  If  you 
enter  the  wrong  password,  the  program  returns  to  the  selection 
menu.  If  you  enter  the  correct  password,  the  system  prompts  you 
to  insert  the  most  current  backup  diskette  in  drive  A.  After 
accomplishing  this,  press  any  key  and  the  system  will 
automatically  copy  all  database  files  to  the  hard  disk.  if  two 
or  more  diskettes  were  required  for  the  backup,  the  system  will 
prompt  you  to  insert  the  additional  diskettes. 
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5.0  DATABASE  PROGRAM  AND  SUPPORT  FILES 


RCIS  consists  of  the  following  program  files: 


RCIS.PRG 


RCIS_Pi.PRG 


RCIS  P2.PRG 


RCIS  P3.PRG 


RCISUTIL.PRG  - 


RCISUTL2.PRG 


This  is  the  main  controlling  RCIS 
program  file. 


This  file  contains 
initialization  routines. 


the  RCIS 


This  file  contains  the  following  RCIS 
function  routines:  Add,  Edit,  View, 

Delete  and  Transfer. 

This  file  contains  all  RCIS  Query 
function  routines. 

This  is  the  main  controlling  program  for 
the  Backup  and  Reload  utilities. 

This  file  contains  the  Backup  and  Reload 
function  routines. 


RCIS  is  supported  by  the  following  format  files  used  to 
create  the  data  entry  and  view  format  screens: 

CDT_M.FMT 
CDT  M  VU.FMT 


RCIS  accesses  the  following  database  and  index  files  (where 
X_  symbolizes  either  A_  for  active  file  or  I_  for  inactive 
file  and  T_  is  for  table  files): 


Database 
File  Name 


X  CDT  MS. DBF 


Index 
File  Name 


X_CGDT . NDX 
X_CLAS . NDX 
X  DCFY.NDX 
X_SCHA.NDX 
X_SEDT . NDX 
X_SSAN.NDX 
X  WPSS.NDX 


X_ASCL.NDX 


T  HGHT.NDX 


T  AGEC . NDX 


Input  Screen 


SCHOURSHIP  CANOIDATF.S/ACAnF.MIC  PRRFORMANCF.  QUF.RY  — 


‘il 


Srholarshtp 
n.itPgory  (T,  N,  P) 


Laat  Name 


Cumulative  GPA  >= 

AFOQT  Qiian  >=  10 
AFfXrr  Verb  >=  15 
AFlxyr  Pilot  >=  50 
AFOIJT  Nnv  >=  30 
Cumulative  SAT 


Query  Item 

Opera tore (<,>,=, <>,<=,>= 

Query  Values 

F.XAMPr.F. 

Lest  Nflme 

>*  *  Absence  of  Operator 

<  field  defaults  to 

ANOF.RSnN 

SMITH 

Report  Formats 


SCHOLARSHIP  CANDIDATES/ACADEMIC  PERFORMANCE  REPORT 


Last  AS  Cat  GPA  SAT  AFOQT 

—Miss - Si§ss__T22§__Cum _ Cum _ guan _ Yerb__Pil_  Nav 

3  2  3.50  1200  80  ~00  B9  80” 


SCHOLARSHIP  CAIDIDATES/ACADEMIC  PEBFOBMAICE  BEPOIT 

AS  Cat  GPA  SAT  AFOQT  AFOQT  ACT  IPSS  AS  Clasa  FT  ®A 

-glag«.-Tn«..Cus  Cm  Quan  Terb  Pll  lav  AcAp  Date  Cia  Scope  Hank  Hatin<  S« 
3  2  3.51  12H  81  81  88  8f  8*  81/12/85  38  183.22  9/  23  45  3.8 


AIR  SCIFNCE  CIASS  GENERA!,  INFORMATION  QUERY 


First 

Name 

CABTER 


'irst 

iaat 

lism 


AS  Class  >=  I 
<=  3 

Category  Type  2 

Pursuing/Conditional  C 

Last  Nana 

SSAN 


L  .  1 

Query  Item 

Operators! <,>,=, <>,<=,>=] 

Quftry  VnluftA 

EXAMPLE 

Last  Name 

>=  *  Absence  of  Operator 

<  field  defaults  to  '=' 

ANDERSON 

SMITH 

Report  Formats 

AIR  SCIENCE  CLASS  GENERAL  INFORMATION  REPORT 

Last  AS  Cat  Purs  Schl  Min  Min  Min 

Name _ _Cla8s  Type  Maior  _Cond  Type  Math_  Eng  Frl 

FRANK  3  2  MIS  P  3.0  N  N  N~ 


Uat 

last 

mn 


All  SCIEKS  CLASS  SCTglAl.  IIFOBMATIOI  BEPOBT 


AS  Cat  Pura  Schl  Min  Mia  Mia 

Claaa  Type  Major  Coad  Type  Math  Sag  Frl  33AI _ 

3  2  US  F  3.f  I  II  Ill-ll-llll 


Matric  Work  Corps  Auxlllarl 


516201  I  AA.'SV:  I 


-  GRADUATION/COMMISSIONING  SUSPENSE  DATES  QUERY  - 

AS  Class  »  4  #  Days  Until  >=  30 

Cofflmlss ion Ing  Datn  <=  90 


East  Nnina 


0  Days  Until 
Graduation  Data 


Query  Tten  Operatoraf <,>,=,<>,<=, >= 


Query  Values 


EXAMPLE  Last  Name  >=  *  Absence  of  Operator  ANDERSON 

<  field  defaults  to  '='  SMITH 


Report  Formats 


aRADUATION/COMMISSIONINQ  SUSPENSE  DATES  REPORT 


CARTER 


FRANK 


01/10/86  01/10/86  3 


111-11-1111 


OBADDATIOI/COIIOSSIOIIIG  SnSFQSE  DATES  BEPOBT 

Coa  Grad  AS 
Date  Data  Claas  SSAI 


11/11/80  ll/lf/80  3  111-11-1111 


mmmmm 


Input  Screen 


Report  Formats 


SCHOLARSHIP  EXPIRATION  DATES  REPORT 


First 

Name 

CARTEL 


Last  Schl  Exp  Sch  Corps 

.Name _ Date _ Typ _ PoSi^iSS _ 

'frank  1 5705789"”3 .  a~”cORPS~SGT*’MAJ5R' 


Semester 

.Intryiew 

'01709787 


SCHOLAfiSIIP  EXPIBATIOI  DATES  BEPOBT 


Scbl  Exp  Seb  Corps 

Date  Typ  Position _ 

15/15/89  3.1  COBPS  SGT  HAJOB 


Sesestcr  SiEaificaot 

Intrsiew  Inforsation _ 

11/99/87  FATBEB-)  TICE  CUDB  FOB  lATO  FOBCES  II 


SS 


Enter  Name  or  Social  Security  # 


First  Name 
Middle  Name 
Last  Name 

SSAN 


INPIVTnUAL  CADF.T  REPORT  (Press  any  key  to  continue) 


First 

Middle 

Last 

Birth 

Name 

Name 

Name 

SSAN 

Metric  Date 

Age  Sox 

CARTER 

LEROY 

FRANK 

111-11- 

nil  506291  05/10/58  28  M 

AS  AS 

Class 

DC  FY 

fT 

FT 

Pll 

Corps 

Yr 

Rank 

Rtng  Rtng  Rating 

Cmp 

ALTO  Lies  Work 

Auxiliaries 

1 

10/  1 

7  45 

555.55 

N 

N  Y 

N 

AAiSWI  1 

1  1 

1  1 

Cat 

Purs 

4-Yr  Prl 

Waiv  Form  48 

Semester 

FSP 

Typ« 

Cond 

Cad.  Serv 

Req  Date 

InCrview 

Race  Date 

2 

P 

N  N 

N  01/09/87 

01/09/87 

C 

/  / 

Weigh 

Run 

Run 

Phys 

Phys 

Grad 

Coen 

iln  i  jfht 

V<>i^ht  Date 

Time 

Date 

Cat 

Date 

Date 

Date 

69. 2S 

154. 

00  10/10/86  8:30 

10/10/86  2 

01/03/89 

1  01/10/86 

01/10/86 

Schl 

Schl  Exp 

CPA 

SAT 

ACT 

Mn  jor 

Typo 

Date 

Cum  Sem 

Cum 

Hath  Verb  Cum 

Hath  Engl 

NSci  SSci 

MIS 

3.0 

15/05/89 

3.50  3.60 

1  1200  600 

600  30 

30  30 

30  30 

AFOfiT 

AFOQT 

Hin  Req 

Qnnn 

Verb 

Pll  Nav  AcAp  Date 

Hath  Engl 

Frln 

SO 

80 

80  80 

80  01/12/85 

N  N 

N 

—  tNnCVtDOAL  CADET  PAF  QUERY  - 

F.nter  Name  or  Social  Security  # 

First  Name 
Middle  Name 
Last  Name 

SSAN  in-U-Ull 


INDIVIDUAL  CADET  PAY  REPORT  (Press  any  key  to  continue) 


Firat 

Name 

Middle  Last 

Name  Name 

SSAN 

Metric  < 

AS 

Class 

Cat 

Type 

Schl 

Type 

CARTKR 

LEROY  FRANK 

111-n-iii 

1  *^06291 

2 

3.0 

Pay 

Start 

Stop 

Res 

Book 

FT 

ATP 

FSP 

Num 

Cum 

I'^'r  lo<l 

1 

Pay  Date 

Pay  Date 

Stat 

Tuition 

Fees 

Days 

Days 

Days 

Days 

Days 

01/09/85 

31/12/85 

0 

1300.00 

100.00 

0 

0 

0 

122 

122 

2 

01/01/86 

31/05/86 

I 

600.00 

150.00 

0 

0 

0 

151 

273 

01/09/86 

31/12/86 

I 

700.00 

200.00 

0 

0 

0 

122 

395 

4 

01/01/87 

31/05/87 

I 

800.00 

250 . 00 

0 

0 

0 

ISl 

546 

01/06/87 

31/08/87 

0.00 

0.00 

28 

14 

14 

36 

582 

6 

01/09/87 

31/12/87 

I 

900.00 

300.00 

0 

0 

0 

122 

704 

7 

01/01/88 

31/05/88 

I 

1000.00 

350.00 

0 

0 

0 

152 

856 

A 

01/09/88 

31/12/88 

I 

1 100.00 

425 . 00 

n 

0 

0 

122 

9  78 

a 

01/01/89 

31/05/89 

I 

1200.00 

450.00 

0 

0 

0 

151 

1 1  29 

10 

01/06/89 

31/08/89 

I 

750.00 

175.00 

0 

0 

0 

92 

1221 

( f'n  1  nmn 

Tota Is ) -- 

> 

8350.00 

2400.00 

28 

14 

14 

Copyright  (C)  1987 


Utilities 
Log-on  Screen 


RCIS  OTILITIES 


FUNCTION 

B«ckUp 

ReLoad 

Password 

Done 


Backup 

Selection 

Response 


Insert  a  (or.eatted  disk  In  drive  A  and  press  any  key. 


RCIS  OTIUTIES 


Backup 

ReLoad 

Password 

Done 


Reload 

Selection 

Response 


WARNING:  This  option  will  erase  existing  files. 
Do  you  want  to  continue?  N 


RCIS  UTIUTIES 


Backup 

ReLoad 

Password 

Done 


Password 

Selection 

Response 


Knt«r  old  password 
Enter  new  password 
Verify  new  password 
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1.0  INTRODUCTION. 


This  manual  provides  technical  information  for  the  ROTC 
Cadet  Information  System  (RCIS)  database  and  program  source  code. 
Section  2  focuses  on  the  design  of  the  database.  Attachment  1 
contains  a  copy  of  the  documented  source  code  for  the  program. 


1.1  OVERVIEW. 

Section  2  provides  information  used  to  ulitmately  design  the 
relations  contained  in  the  RCIS  database.  The  section  documents 
the  activities  in  all  four  phases  of  the  database  design. 
Materials  contained  in  this  section  include: 

a.  Data  dictionary  of  attributes  contained  in  the  database. 

b.  Entity  Relationship  Diagram  of  the  database. 

c.  Functional  dependencies  used  during  normalization. 

d.  Final  relational  schema  and  indices. 


\ 

\ 

1.2  RCIS  REQUIREMENTS. 

\ 

RCIS  was  designed  to  be  run  on  an  IBM  PC/AT  or  compatible 

undei^  dBASE  III  PLUS,  Version  1.1.  The  minimum  hardware 

\ 

requirements  for  the  system  include: 

a. \  512K  RAM. 

b.  'Monochrome  monitor. 

c.  o\ie  floppy  disk  drive. 

d.  Onfe  hard  disk  drive. 


2.0  OVERVIEW. 


This  section  contains  documentation  of  the  database  design 
phases  including:  a  data  dictionary  of  all  the  attributes 
contained  in  RCIS  relations,  an  Entity  Relationship  Model  (ERM) 
of  the  RCIS  environment,  functional  dependencies  used  to 
decompose  and  normalize  the  relational  schema,  and  the  final 
relational  schemata. 


DATA  DICTIONARY. 

AA_NUM 

Type 

Width 

Format 

Remarks 

Numeric 

6  Dec:  4 

9.9999 

Numeric  value  multiplied  by  cadet's 
AFOQT  Academic  Aptitude  score  in 

figuring  the  WPSS  score. 

ACT_CUM 

Type 

Width 

Format 

Remarks 

Numeric 

2 

99 

The  cadet's  cumulative  ACT  score. 

ACT_ENGL 

Type 

Width 

Format 

Remarks 

Numeric 

2 

99 

The  cadet's  ACT  english  score. 

ACT_MATH 

Type 

Width 

Format 

Remarks 

Numeric 

2 

99 

The  cadet's  ACT  math  score. 

ACT_NSCI 

Type 

Width 

Format 

Remarks 

Numeric 

2 

99 

The  cadet's  ACT  natural  science  score. 
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ACT  SSCI 


AFOQT_AA 


AFOQT_NAV 


AFOQT_PLT 


ACE 


AGE  CAT 


Type 

Numeric 

Width 

2 

Format 

99 

Remarks 

The  cadet ' s 

\CT  social  science  score. 

Type 

Numeric 

Width 

2 

Format 

99 

Remarks 

The  cadet ' s 

AFOQT  academic  aptitude  score 

Type 

Date 

Width 

8 

Format 

99/99/9999 

Remarks 

The  cadet's 

AFOQT  test  date. 

Type 

Numeric 

Width 

2 

Format 

99 

Remarks 

The  cadet ’ s 

AFOQT  navigator  score. 

Type 

Numeric 

Width 

2 

Format 

99 

Remarks 

The  cadet’s 

AFOQT  pilot  score. 

Type 

Numeric 

Width 

2 

Format 

99 

Remarks 

The  cadet’s 

AFOQT  quantitative  score. 

Type 

Numeric 

Width 

2 

Format 

99 

Remarks 

The  cadet ' s 

AFOQT  verbal  score. 

Type 

Character 

Width 

2 

Format 

99 

Remarks 

The  cadet ’ s 

age . 

Type 

Character 

Width 

1 

Format 

9 

Remarks 

The  cadet ’ s 

age  category 

(  1  for  < 

30  yrs ,  2  otherwise). 

3 

ALTU 


AS  CLASS 


AS  CL  TOT 


Type  :  Logical 
Width  :  1 
Format  :  Y/N 

Remarks  :  Indicates  whether  the  cadet  has 
completed  the  mock  field  training 
camp . 


Type  :  Numeric 

Width  :  1 

Format  :  9 

Remarks  :  The  aerospace  class  the  cadet  is 

enrolled  in  (1  =  freshman,  2  = 

sophomore,  3  =  junior,  4  =  senior). 


Type  :  Numeric 

Width  :  3 

Format  :  999 

Remarks  :  The  total  number  of  cadets  enrolled  in 

each  specific  aerospace  class. 


AS  RNK  POS 


Type 

Width 

Format 

Remarks 


Numeric 

3 

999 

Aerospace  studies  ranking  of  the  cadet 
in  each  aerospace  studies  class. 


ATP  DAYS 


BIRTHDATE 


Type 

Width 

Format 

Remarks 


Type 

Width 

Format 

Remarks 


Numeric 

2 

99 

Number  of  days  the  cadet  attended  a 
pilot  training  school. 


Date 

8 

99/99/9999 
Cadet’s  birth  date. 


BOOK  FEES 


Type 

Width 

Format 

Remarks 


Numeri c 
6  Dec : 
999.99 
Cadet ’ s 
during 


expenses 

specified 


(for  contract  cadets  only). 


for  books/notes 
period  of  time 


CAT_TYPE  Type  :  Character 
Width  :  1 
Format  :  PIG  X 

Remarks  :  Code  representing  the  cadet's  category 
type  (M  =  missile,  N  =  navigator,  P  = 
pilot,  Q  =  nurse,  R  =  pre-med,  L  =  law 
2  =  technical,  3  =  non- technical ) . 


COM_DATE  Type  :  Date 
Width  :  8 

Format  :  99/99/9999 

Remarks  :  Cadet's  commissioning  date. 


CORPS_AUX  Type  :  Character 

Width  :  16 

Format  :  XX/XX/XX/XX/XX/XX/XX/XX 

Remarks  :  Two-digit  codes  indicating  the  cadet's 

participation  in  corps  auxiliaries. 


CORPS  POS 


Type 

Width 

Format 

Remarks 


Character 

25 

PIC  X(25) 

The  cadet's  assigned  position  in  the 
corps . 


CUM_GPA  Type  :  Numeric 

Width  :  4  Dec:  2 

Format  :  9.99 

Remarks  :  The  cadet's  cumulative  GPA. 


DCR_NUM  Type  :  Numeric 

Width  :  6  Dec:  4 
Format  :  9.9999 

Remarks  :  Numeric  value  multiplied  by  cadet's 
Detachment  Commander  rating  in 
figuring  the  WPSS  score. 


DC_RATING  Type  :  Numeric 

Width  :  1 

Format  :  9 

Remarks  :  The  Detachment  Commander's  rating  of 

each  cadet . 


FORM_48 


Type 

Width 


Format 

Remarks 


Date 

8 

99/99/9999 

Last  completion  date  for  the  cadet's 
most  current  Air  Force  Form  48  (degree 
plan) . 


FOUR_YR 

Type 

:  Logical 

Width 

:  1 

Format 

:  Y/N 

Remarks 

:  Indicates  whether  the  cadet  is  a  four 
year  AFROTC  student. 

FSP_DATE 


Type  :  Date 

Width  :  8 

Format  :  99/99/9999 

Remarks  :  Flight  screening  program  completion 
date  (program  for  potential  pilot 
cadets ) . 


FSP_DAYS  Type  :  Numeric 
Width  :  2 
Format  :  99 

Remarks  :  Number  of  days  the  cadet  attended 
the  flight  screening  program. 
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if.  >r. 

■•f.V 

V.v 

v,v 
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FT_COMP 

Type 

Width 

Format 

Remarks 

Logical 

1 

Y/N 

Indicates  whether  the  cadet  has 

completed  field  training. 

FT_DAYS 

Type 

Width 

Format 

Remarks 

Numeric 

2 

99 

Number  of  days  the  cadet  attended 
field  training. 

FT_RTNG 

Type 

Width 

Format 

Remarks 

Numeric 

6  Dec;  2 

999.99 

Advisor's  rating  of  the  cadet's 

performance  at  field  training. 

6 


•r.  -r. 
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FY  RING 


t- 


k 


F  NAME 


GPA  NUM 


Type 

:  Numeric 

Width 

:  2 

Format 

:  99 

Remarks 

:  The  cadet ' s 

fiscal  year  rating 

Type 

:  Character 

Width 

:  15 

Format 

:  PIC  X(15) 

Remarks 

:  The  cadet ' s 

first  name. 

Type 

:  Numeric 

Width 

:  6  Dec:  4 

Format 

:  9.9999 

Remarks 

:  Numeric  value  multiplied  by 

score 


cumulative  GPA  in  figuring  the  WPSS 
score . 


GRAD  DATE 


Type 

Width 

Format 

Remarks 


Date 

8 

99/99/9999 

The  cadet's  graduation  date. 


HEIGHT 


Type 

Width 

Format 

Remarks 


Numeric 
5  Dec:  2 
99.99 

The  cadet's  height  in  inches 
quarter  inches. 


and 


LOCAL  CITY 


Type 

Width 

Format 

Remarks 


Character 

20 

PIC  X(20) 

City  name  associated  with  the  cadet's 
local  address. 


L0CAL_PH0N 

Type 

:  Character 

• 

Width 

:  7 

w". 

Format 

:  999-9999 

Remarks 

:  Cadet's  local  phone  number. 

C'' 

> « 

LOCAL_STRT 

Type 

:  Character 

• 

Width 

:  30 

V. 

Format 

:  PIC  X(30) 

Remarks 

:  Street  name  associated  with 

v 

local  address. 

V 

• 

7 

cadet ' s 


LOCAL_ZIP 

Type 

Width 

Format 

Remarks 

Character 

9 

99999-XXXX 

Zipcode  associated  with  cadet's  local 
address . 

L_NAME 

Type 

Width 

Format 

Remarks 

Character 

15 

PIC  X(15) 

Cadet's  last  name. 

MAJOR 

Type 

Width 

Format 

Remarks 

Character 

4 

PIC  X(4) 

Four-character  code  for  the  cadet's 
academic  major. 

MATRIC 

Type 

Width 

Format 

Remarks 

Character 

6 

999999 

The  cadet's  six-digit  matriculation 
number. 

MAX_RT_F 

Type 

Width 

Format 

Remarks 

Numeric 

4 

9999 

Maximum  allowable  time  for  a  female 
cadet  to  run  a  mile  and  a  half. 

MAX_RT_M  Type 

Numeric 

Width 

4 

Format 

9999 

Remarks 

Maximum 

allowable  time  for  a  male 

cadet  to 

run  a  mile  and  a  half. 

MAX  WT  F 


Type 

Width 

Format 

Remarks 


Numeric 
6  Dec:  2 
999.99 

Maximum  allowable  weight  for  a 
cadet  at  her  measured  height. 


female 


MAX  WT  M 


Type 

Width 

Format 

Remarks 


Numeric 
6  Dec:  2 
999.99 

Maximum  allowable  weight  for 
cadet  at  his  measured  height. 


a  male 


M  A  a  d  ."Tfc A  my.  l.A: ..  ^  a  J yf a  n*..  A* 


MIN_WT_F  Type  ;  Numeric 

Width  :  6  Dec:  2 

Format  :  999.99 

Remarks  :  Minimum  allowable  weight  for  a  female 

cadet  at  her  measured  height . 


MIN_WT_M  Type  :  Numeric 

Width  :  6  Dec:  2 

Format  :  999,99 

Remarks  :  Minimum  allowable  weight  for  a  male 

cadet  at  his  measured  height. 


M_NAME  Type  :  Character 

Width  :  15 
Format  :  PIC  X(15) 

Remarks  :  The  cadet's  middle  name. 


M_R_ENGL  Type  :  Logical 
Width  :  1 
Format  :  Y/N 

Remarks  :  Indicates  whether  the  cadet  has 
completed  the  minimum  required  english 
courses . 


M_R_FLAN  Type  :  Logical 
Width  :  1 
Format  :  Y/N 

Remarks  :  Indicates  whether  the  cadet  has 
completed  the  minimum  required  foreign 
language  courses. 


M_R_MATH  Type  :  Logical 
Width  :  1 
Format  :  Y/N 

Remarks  :  Indicates  whether  the  cadet  has 
completed  the  minimum  required  math 
courses . 


OTHER_INFO  Type  :  Character 

Width  :  50 

Format  :  PIC  X(50) 

Remarks  :  Significant  information  about  the 

cadet,  i.e.  cadet's  father  is  a 
general . 


( 


I 

wf 


PAY  DATE 2 


PERM  CITY 


PERM  PHON 


PERM  STAT 


PERM  STRT 


PERM  ZIP 


PHY  CAT 


Type 

Width 

Format 

Remarks 


Type 

Width 

Format 

Remarks 


Type 

Width 

Format 

Remarks 


Type 

Width 

Format 

Remarks 


Type 

Width 

Format 

Remarks 


Type 

Width 

Format 

Remarks 


Type 

Width 

Format 

Remarks 


Type 

Width 

Format 

Remarks 


Date 

8 

99/99/9999 

Beginning  date  for  a  pay  period, 


Date 

8 

99/99/9999 

Ending  date  for  a  pay  period. 


Character 

20 

PIC  X(20) 

City  name  associated  with  the  cadet's 
permanent  address. 


Character 

10 

(999)999-9999 

Cadet's  permanent  phone  number. 


Character 

2 

PIC  X(2) 

State  associated 
permanent  address. 


with 


cadet ' s 


Character 

30 

PIC  X(30) 

Street  name  associated  with 
local  address. 


cadet ' s 


Character 

9 

99999-XXXX 

Zipcode  associated 
permanent  address. 


with  cadet's 


Character 

1 

PIC  X 

The  cadet's  physical  category  type. 


PHY_DATE 


PLT  LICENS 


PRIOR  SVC 


PC  STATUS 


QUAN_NUM 


Type 

Width 

Format 

Remarks 


Type 

Width 

Format 

Remarks 


Type 

Width 

Format 

Remarks 


Type 

Width 

Format 

Remarks 


Type 

Width 

Format 

Remarks 


pm 


Date 

8 

99/99/9999 

The  date  of  the  cadet's  physical 
qualification  examination. 


Logical 

1 

Y/N 

Indicates  whether  the  cadet  has  a 
private  pilot's  license. 


Logical 

1 

Y/N 

Indicates  whether  the  cadet  has  had 
prior  military  service  experience. 


Character 

1 

PIC  X 

Code  indicating  whether  the  cadet  is 
on  pursuing  [P]  or  conditional  [S] 
status . 


Numeric 
6  Dec;  4 
9.9999 

Numeric  value  multiplied  by  cadet's 
AFOQT  quantitative  score  in  figuring 
the  WPSS  score. 


RACE 

Type 

:  Character 

Width 

:  1 

Format 

:  PIC  X 

Remarks 

:  Code  for  cadet's  race 

RES_STATUS  Type 

Character 

Width 

1 

Format 

PIC  X 

Remarks 

Code  for  cadet's  residency  status 

for  in-state,  [0]  for  out-of-stat 

RUN  DATE 


Type 

Width 

Format 

Remarks 


Date 

8 

99/99/9999 

Date  of  the  cadet's  aerobics  run  time. 


RUN  TIME 


Type 

Width 

Format 

Remarks 


Character 

4 

9999 

The  cadet's  aerobics  run  time  (first 
two  digits  are  minutes,  second  two 
digits  are  seconds). 


SAT_CUM  Type  :  Numeric 
Width  :  2 
Format  :  99 

Remarks  :  The  cadet's  cumulative  SAT  score, 


SAT_MATH  Type  :  Numeric 
Width  :  2 
Format  :  99 

Remarks  :  The  cadet's  SAT  math  score. 


SAT  NUM 


SAT  VERB 


SCHLR  DATE 


Type  :  Numeric 
Width  :  6  Dec:  4 
Format  :  9.9999 

Remarks  :  Numeric  value  multiplied  by  cadet's 
cumulative  SAT  score  in  figuring  the 
WPSS  score. 


Type  :  Numeric 
Width  :  2 
Format  :  99 

Remarks  :  The  cadet's  SAT  verbal  score, 


Type  :  Date 

Width  :  8 

Format  :  99/99/9999 

Remarks  :  The  expiration  date  of  the  cadet's 
ROTC  scholarship. 


SCHLR  TYPE 


Type  :  Numeric 
Width  :  3  Dec:  1 
Format  :  9.9 

Remarks  :  The  cadet's  AFROTC  scholarship  type, 
2.5  =  two  and  a  half  year  scholarship. 


■.  u  •  ‘  •“ 


-  tT 


AW 


mm 


SEM  GPA 


uw  i  w  i t  i  w  i  m  i  w  v  *1"  v  mi  rn  w 


Type 

Width 

Format 

Remarks 


Numeric 
4  Dec:  2 
9.99 

The  cadet's  most  current  semester  GPA. 


SEM_INTRVW  Type  :  Date 

Width  :  8 

Format  :  99/99/9999 

Remarks  :  Date  of  the  cadet's  most  recent 

semester  interview. 


SEX  Type  :  Character 

Width  :  1 
Format  :  PIC  X 
Remarks  :  The  cadet's  gender. 


SSAN 


Type 

Width 

Format 

Remarks 


Character 

9 

999-99-9999 

The  cadet's  social  security  number. 


TUITION  Type  :  Numeric 

Width  :  7  Dec:  2 

Format  :  9999.99 

Remarks  :  The  cadet's  tuition  for  a  given 
semester  (in  dollars  and  cents). 


VERB  NUM 


Type  :  Numeric 
Width  :  6  Dec:  4 
Format  :  9.9999 

Remarks  :  Numeric  value  multiplied  by  cadet's 
AFOQT  verbal  score  in  figuring  the 
WPSS  score. 


WAIVER_REQ 

Type 

:  Logical 

Width 

:  1 

Format 

:  Y/N 

Remarks 

:  Indicates  whether  the 

cadets  has  a 

waiver  required  on  their 

physical . 

WEIGHT 

Type 

:  Numeric 

Width 

:  6  Dec:  2 

Format 

:  999.99 

Remarks 

:  The  cadet's  weight  in 
quarter  pounds . 

pounds  and 
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WEIGH  DATE 


Type  :  Date 

Width  :  8 

Format  :  99/99/9999 

Remarks  :  Date  the  cadet's  weight  was  measured. 


WORK 


Type  :  Logical 
Width  :  1 
Format  :  Y/N 

Remarks  :  Indicates  whether  the  cadet  has  a 
part time  job. 


WPSS 


Type  ;  Numeric 

Width  :  6  Dec:  2 

Format  :  999.99 

Remarks  :  Numerical  score  calculated  using  the 

following  data:  DC_RTNG,  DCR_NUM, 

CUM_GPA,  GPA_NUM,  SAT_CUM,  SAT_NUM, 
AFOQT_AA,  AA_NUM,  AFOQT_QUAN,  QUAN_NUM 
AFOQT_VERB,  VERB_NUM 


2.3  NORMALIZATION. 


This  section  presents  the  functional  dependencies  (FDs)  used 
to  normalize  RCIS  relations  by  the  decomposition  approach.  The 
notation  X  -->  Y  is  used  to  indicate  a  functional  relationship 


between  the  attribute  X  and  Y. 
denote  a  multivalued  dependency. 
2.3.1  A_CDT_MS.DBF  AND  I_CDT_MS 

SSAN  ACT_CUM 

ACT_ENGL 
ACT_MATH 
ACT_NSCI 
ACT_SSCI 
AFOQT_AA 
AFOQT_DATE 
AFOQT_NAV 
AFOQT_PLT 
AFOQT_QUAN 
AFOQT_VERB 
AGE 
ALTU 
AS_CLASS 
AS_RNK_POS 
BIRTHDATE 
CAT_TYPE 
COM_DATE 
CORPS_AUX 
CORPS_POS 
CUM_GPA 
DC_RTNG 
F0RM_48 
FOUR_YR 
FSP_DATE 
FT_COMP 
FT_RTNG 
FY_RTNG 
F_NAME 
GRAD_DATE 
HEIGHT 
LOCAL_CITY 
LOCAL_PHON 
LOCAL_STRT 
LOCAL  ZIP 


The  notation  X  -->>  Y  is  used  to 


DBF 

SSAN  -->  L_NAME 
MAJOR 
MATRIC 
M_NAME 
M_R_ENGL 
M_R_FLAN 
M_R_MATH 
OTHER_INFO 
PERM_CITY 
PERM_PHON 
PERM_STAT 
PERM_STRT 
PERM_ZIP 
PHY_CAT 
PHY_DATE 
PLT_LICENS 
PRIOR_SVC 
PC_STATUS 
RACE 

RUN_DATE 

RUN_TIME 

SAT_CUM 

SAT_MATH 

SAT_VERB 

SCHLR_DATE 

SCHLR_TYPE 

SEM_GPA 

SEM_INTRVW 

SEX 

WAIVER_REQ 

WEIGHT 

WEIGH_DATE 

WORK 

WPSS 


This  relation  is  in  4NF.  See  the  RCIS  User's 
Guide  for  a  discussion  of  the  indices  created  to 
support  this  relation. 


ANALYSIS: 


SSAN,  PAY_DATE1  -->  ATP_DAYS 

BOOK_FEES 

FSP_DAYS 

FT_DAYS 

PAY_DATE2 

RES_STATUS 

TUITION 


ANALYSIS:  This  relation  is  in  4NF.  See  the  RCIS  User's 

Guide  for  a  discussion  of  the  indices  created  to 
support  this  relation. 


2.3.3  A  CDT_CT.DBF  AND  I_CDT_CT.DBF 


AS  CLASS  -->  AS  CL_TOT 


ANALYSIS:  This  relation  is  in  4NF .  See  the  RCIS  User's 

Guide  for  a  discussion  of  the  indices  created  to 
support  this  relation. 


2.3.4  T  CDT_RT.DBF 


AGE„CAT  MAX_RT_F 
MAX_RT_M 


ANALYSIS:  This  table  is  in  4NF.  The  AGE_CAT  field  is 

determined  inside  the  program  source  code  by 
using  the  AGE  field  of  the  relation  in  section 
2.3.1  (AGE_CAT  =  1  when  AGE  <  30;  AGE_CAT  =  2 

when  AGE  >=  30).  See  the  RCIS  User's  Guide  for 
a  discussion  of  the  indices  created  to  support 
this  relation. 


2.3.5  T_CDT  HW.DBF 


(HEIGHT  -->  MAX_WT_F 

MAX_WT_M 

p  MIN_WT_F 

r  MIN  WT  M 


\ 


\ 

r 

r 

r 

/ 

j 

I 


i 

r 

< 

t 

I 


( 


ANALYSIS:  This  table  is  in  4NF.  The  appropriate  MAX_WT  and 

MIN_WT  ars  determined  inside  the  program  source 
code  by  using  the  SEX  field  of  the  relation  in 
section  2.3.1  (SEX  =  'F'  then  use  MAX_WT_F  and 
MIN_WT_F;  SEX  =  'M'  then  use  MAX_WT_M  and 

MIN_WT_M).  The  following  FDs  make  up  an 

alternate  design  for  this  table: 

SEX,  HEIGHT  -->  MAX_WT 

MIN_WT 

This  design  would  give  us  a  relation  of  less 
degree  (lower  number  of  columns)  but  it  would 
double  the  cardinality  (twice  as  many  rows). 
The  decision  not  to  use  this  design  was  based  on 
the  idea  that  a  micro-based  system  normally  has 
limited  processing  capabilities  therefore 
smaller  files  are  processed  faster.  See  the  RCIS 
User's  Guide  for  a  discussion  of  the  indices 
created  to  support  this  relation. 


2.3.6  T_CDT_WP . DBF 


AA_NUM 

DCR_NUM 

GPA_NUM 

QUAN_NUM 

SAT_NUM 

VERB  NUM 


This  table  is  in  is  not  in  any  normal  form  since 
it  has  no  key  and  is  merely  a  convenient  storage 
location  for  this  one  record  of  WPSS  multiplier 
values . 


ANALYSIS : 


2.4  DATABASE  STRUCTURES  FOR  RCIS. 


This  section  presents  the  final  RCIS  relations  and 
identifies  the  primary  and  secondary  access  keys.  The  primary 
key  is  denoted  by  the  symbol  and  the  secondary  keys  are 
indicated  by  the  symbol  ,  The  number  of  bytes /record  for  each 
relation  is  also  presented. 


2.4.1  A_CDT_MS . DBF  AND  I  CDT_MS . DBF 


474  bytes/record 


SSAN 

LOCAL_ZIP 

ACT  CUM 

*  L  NAME 

ACT_ENGL 

MAJOR 

ACT_MATH 

MATRIC 

ACT_NSCI 

*  M_NAME 

ACT  SSCI 

M  R  ENGL 

AFOQT  AA 

M  R  FLAN 

AFOQT  DATE 

M  R  MATH 

AFOQT  NAV 

OTHER  INFO 

AFOQT  PLT 

PERM  CITY 

AFOQT  QUAN 

PERM  PHON 

AFOQT  VERB 

PERM  STAT 

AGE 

PERM  STRT 

ALTU 

PERM  ZIP 

AS_CLASS 

PHY  CAT 

AS_RNK_POS 

PHY  DATE 

BIRTHDATE 

PLT  LICENS 

CAT_TYPE 

PRIOR_SVC 

COM_DATE 

PC  STATUS 

CORPS  AUX 

RACE 

CORPS  POS 

RUN  DATE 

CUM_GPA 

RUN_TIME 

DC  RTNG 

SAT  CUM 

F0RM_48 

SAT_MATH 

FOUR  YR 

SAT  VERB 

FSP  DATE 

SCHLR  DATE 

FT  COMP 

SCHLR  TYPE 

FT  RTNG 

SEM  GPA 

FY  RTNG 

SEM  INTRVW 

F_NAME 

SEX 

GRAD_DATE 

WAIVER  REQ 

HEIGHT 

WEIGHT 

LOCAL  CITY 

WEIGH  DATE 

LOCAL  PHON 

WORK 

LOCAL  STRT 

WPSS 
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2.4.2  A  CDT  PY.DBF  AND  I  CDT_PY.DBF 


46  bytes/record 


$  SSAN,  PAY_DATE1  (Composite  primary  key) 
ATP_DAYS 
BOOK_FEES 
FSP_DAYS 
FT_DAYS 
PAY_DATE2 
RES_STATUS 
TUITION 


2.4.3  A  CDT  CT.DBF  AND  I  CDT  CT.DBF 


5  bytes/record 


$  AS_CLASS 
AS  CL  TOT 


2.4.4  T  CDT  RT.DBF 


10  bytes/record 


$  AGE_CAT 
MAX_RT_F 
MAX  RT  M 


2.4.5  T  CDT  HW.DBF 


30  bytes/record 


$  HEIGHT 
MAX_WT_F 
MAX_WT_M 
MIN_WT_F 
MIN  WT  M 


SOURCE  CODE  LISTING 


TABLE  OF  CONTENTS 

RCIS.PRG . 1 


RCIS_P1.PRG 

INIT . 15 

SET_MENU . 16 
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ADD_REC . 26 
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DEL_REC . 53 

DEL_PAY . 58 
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SET_UP . 80 
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RCIS_HDR . 94 

ERR_RE . 95 
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CHK_DSK . 
SET_DSK . 
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COPY_DBF 
UBACKUP . 
URELOAD . 
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»4 
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214 

216 

217 

219 

221 

225 

227 

229 


231 
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BF.mNNING  OF  RCIS.PRG 


SUMMARY: 

* 

■)V 

RCIS.PRG  is  the 

main 

driver  for  the  ROTC  Cadet 

Information  System 

* 

■jV 

(RCIS)  developed 

for 

the  executive  and  administrative  staff  at  the 

* 

AFROTC  Detachment  020 

,  University  of  Arizona. 

This  module  ini- 

* 

* 

tializes  program 

variables,  activates  pop-up  menus  to  determine 

•V 

•A- 

user  processing 

requirements,  and  invokes  procedures  to  add,  edit. 

•A- 

* 

delete,  or  transfer  records.  In  addition,  this 

module  invokes  the 

* 

* 

query  facilities 

that 

allow  the  user  to  specify 

ad  hoc  database 

* 

* 

•)V 

queries  using  form-like  query  input  screens. 

* 

* 

CALLED  PROCEDURES: 

tV 

* 

Procedure  Name 

Location 

* 

JL 

INIT 

RCIS_P1.PRG 

* 

* 

MENU 

MENU.BIN 

* 

* 

ADD_REC 

RCIS_P2.PRG 

* 

* 

EDIT_REC 

RCIS_P2.PRG 

•A- 

'V 

VIEW_REC 

RCIS_P2.PRG 

* 

* 

DEL_REC 

RCIS_P2.PRG 

* 

* 

TRANS_REC 

RCIS_P2.PRG 

‘V 

* 

QUERIES 

RGIS_P3.PRG 

* 

A* 

■is 

VARIABLE  DECLARATIONS: 

* 

* 

* 

Vr 

Variable  Name  Status 

Purpose 

•fr 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

Vf 

tV 

* 


•h 

* 


F  PARA 


GLOBAL 


G  PARA 


GLOBAL 


R  PARA 


GLOBAL 


qs_PARA 


GLOBAL 


QO_PARA 


GLOBAL 


Parameter  for  MENU.BIN  that  passes  pop-up* 
function  menu  descriptions  and  returns  * 

with  user  selection.  A  more  detailed  * 

discussion  of  this  parameter  is  provided  * 
in  RCIS_P1.PRG.  * 

•/e 

Parameter  for  MENU.BIN  that  passes  pop-up* 
group  menu  descriptions  and  returns  with  * 
user  selection  of  active  or  Inactive  data* 
base.  A  more  detailed  discussion  of  this* 
parameter  is  provided  in  RCIS_P].PRG.  * 

* 

Parameter  for  MENU.BIN  that  passes  pop-up* 
record  menu  descriptions  and  returns  with* 
user  database  selection.  A  more  detailed* 
discussion  of  this  parameter  is  provided  * 
in  RGTS.Pl.PRG.  * 

* 

Parameter  for  MENU.BIN  that  passes  pop-up* 
query  selection  menu  descriptions  and  re-* 
turns  with  user  selection.  A  more  de-  * 
tailed  discussion  of  this  parameter  is  * 
provided  in  RCIS_P1.PRG.  * 

* 

Parameter  for  MENII.BTN  that  passes  pop-up* 


* 

* 

* 


F_SELECT 

G_SELECT 

R_SELECT 

QS_SELECT 

QO_SELECT 

QUIT_KEY 


M_CHOICE 

P.CHOICE 

VP_CHOICE 

TQ_CHOICE 

FILT_STR 

T_FOR_STR 

EMPTY  M 


GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 


GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 


query  output  menu  descriptions  and  re¬ 
turns  with  user  selection.  A  more  de¬ 
tailed  discussion  of  this  parameter  is 
provided  in  RCIS_P1.PRG. 


Holds  the  character  indicating  the  func-  * 
tion  selected  by  the  user.  * 

* 

Holds  the  character  indicating  the  rela-  * 
tion  selected  by  the  user.  * 

ir 

Holds  the  character  indicating  the  group  * 
(active  or  inactive)  selected  by  the  user* 

* 

Holds  the  character  indicating  the  query  * 
type  selected  by  the  user.  * 

* 

Holds  the  character  indicating  the  output* 
media  selected  by  the  user.  * 

* 

Boolean  variable  that  is  set  to  TRUE  if  * 
the  user  either  enters  a  null  string  or  * 
presses  the  <Esc>  key  when  prompted  for  * 
an  access  key.  If  the  variable  is  set  to* 
TRUE,  the  system  discontinues  processing  * 
the  current  function  and  returns  to  the  * 
main  menu.  * 

* 

Boolean  variable  used  to  flag  desire  to  * 
continue  with  a  selected  processing  mode.* 

* 


Boolean  variable  used  to  flag  desire  to  * 
add  additional  Pay  records  to  the  * 
selected  Master  record.  * 

* 


Boolean  variable  used  to  flag  desire  to  * 
view  a1 1  associated  Pay  records  for  the  * 
selected  Master  record.  * 

* 


Boolean  variable  used  to  flag  desire  to  * 
transfer  records  from  active  to  inactive  * 
files  or  vice  versa.  * 


String  variable  used  to  hold  filter  cond-* 
itlons  required  to  properly  locate  the  * 
desired  records.  * 

* 

String  variable  used  to  hold  secondary  * 
filter  conditions  (in  this  case,  name  * 

variables  only)  required  to  properly  lo-  * 
cate  the  desired  records.  * 

* 

Boolean  variable  used  to  flag  the  condi-  * 
tion  of  an  empty  Master  file.  * 


a 


I 
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EMPTY_P  GLOBAL  Boolean  variable  used  to  flag  the  condl-  * 

tion  of  an  empty  Pay  file.  * 

* 

REC_NUM  GLOBAL  Used  store  the  database  system  record  * 

number  for  the  record  currently  being  * 
processed.  * 

* 

DEL_FLAG  GLOBAL  Boolean  variable  set  to  TRUE  when  the  * 

current  Master  record  has  been  marked  for* 
deletion.  * 

FIRST_TIME  GLOBAL  Boolean  variable  used  in  many  procedures  * 

when  the  first  pass  through  a  code  seg-  * 
ment  requires  some  "first  time"  initial-  * 
izations.  * 

* 

IN_SSAN  GLOBAL  Used  as  a  holding  area  for  the  primary  * 

key  input  by  the  user.  * 

* 

IN_FNAM  GLOBAL  Used  as  a  holding  area  for  one  of  the  * 

secondary  keys  input  by  the  user.  * 

* 

IN_MNAM  GLOBAL  Used  as  a  holding  area  for  one  of  the  * 

secondary  keys  input  by  the  user.  * 

* 

IN_LNAM  GLOBAL  Used  as  a  holding  area  for  one  of  the  * 

secondary  keys  input  by  the  user.  * 

•fc 

T_PATH  GLOBAL  Used  to  store  a  code  value  indicating  * 

whether  the  user  would  like  to  try  an-  * 
other  record  transfer  or  exit  back  to  * 
the  function  select  menu.  * 

* 

NOX^LIST  GLOBAL  String  variable  used  to  store  the  list  of* 

index  files  that  will  be  updated  whenever* 
a  record  is  added  or  deleted.  * 

* 

M_FILE  GLOBAL  String  variable  used  to  store  the  name  of* 

the  Master  file  being  used  (no  extension)* 

* 

P_FILE  GLOBAL  String  variable  used  to  store  the  name  of* 

the  Pay  file  being  used  (no  extension).  * 

* 

CT_FILE  GLOBAL  String  variable  used  to  store  the  name  of* 

the  Enrollment  totals  file  being  used  * 

(no  extens ion) .  * 

* 

M_NDX  GLOBAL  String  variable  used  to  store  the  name  of* 

the  primary  index  file  for  the  Master  * 

file  (no  extension).  * 

■A" 

P_NDX  GLOBAL  String  variable  used  to  store  the  name  of* 

the  primary  index  file  for  the  Pay  file  * 
(no  extension).  * 


-  <-  «/- 


CT_NDX  GLOBAL  String  variable  used  to  store  the  name  of* 

the  primary  index  file  for  the  Enrollment* 
totals  file  (no  extension).  * 

* 

M_NnX_F  GLOBAL  String  variable  used  to  store  the  name  of* 

the  primary  index  file  for  the  Master  * 
file  (with  extension).  * 

P_NDX_F  GLOBAL  String  variable  used  to  store  the  name  of* 

the  primary  index  file  for  the  Pay  file  * 
(with  extension).  * 

* 

CT_NDX_F  GLOBAL  String  variable  used  to  store  the  name  of* 

the  primary  index  file  for  the  Enrollment* 
totals  file  (with  extension).  * 

* 

M_NDX_STR  GLOBAL  String  variable  used  to  hold  names  of  the* 

database  variables  to  key  on  when  the  * 
Master  file  index  is  "set".  * 

-V 

P_NDX_STR  GLOBAL  String  variable  used  to  hold  names  of  the* 

database  variables  to  key  on  when  the  * 

Pay  file  index  is  "set".  * 

* 

M_FORM_STR  GLOBAL  String  variable  used  to  hold  the  name  of  * 

format  files  to  be  displayed  when  the  * 

full  screen  edit  commands  are  issued.  * 

* 

DEST_FILE  GLOBAL  String  variable  used  to  hold  the  text  * 

name  of  the  target  file  (active  or  * 

inactive).  * 

* 

T_M_FILE  GLOBAL  String  variable  used  to  store  the  name  of* 

the  target  Master  file  being  used  (no  * 

extension)  * 

* 

T_P_FILE  GLOBAL  String  variable  used  to  store  the  name  of* 

the  target  Pay  file  being  used  (no  * 

extension).  * 

* 

T_CT_FILE  GLOBAL  String  variable  used  to  store  the  name  of* 

the  target  Enrollment  totals  file  being  * 
used  (no  extension).  * 

T_M_NDX  GLOBAL  String  variable  used  to  store  the  name  of* 

the  primary  index  file  for  the  target  * 

Master  file  (no  extension).  * 

* 

T_P_NDX  GLOBAL  String  variable  used  to  store  the  name  of* 

the  primary  index  file  for  the  target  Pay* 
file  (no  extension).  * 

* 

T_CT_NDX  GLOBAL  String  variable  used  to  store  the  name  of* 

the  primary  index  file  for  the  target  * 
Enrollment  totals  file  (no  extension).  * 


I’TOIW 


GLOBAL 


T  M  NDX  F 


String  variable  used  to  store  the  name  of* 
the  primary  index  file  for  the  target  * 
Master  file  (with  extension).  * 


T  P  NDX  F 


T  CT  NDX  F 


GLOBAL 


GLOBAL 


String  variable  used  to  store  the  name  of* 
the  primary  index  file  for  the  target  Pay* 
file  (with  extension).  * 

* 

String  variable  used  to  store  the  name  of* 
the  primary  index  file  for  the  target  * 
Enrollment  totals  file  (with  extension).  * 


LINE  NUM 


GLOBAL  Variable  used  to  keep  track  of  the  number* 
of  pay  records  that  have  been  displayed  * 
on  the  screen.  * 


D1SP_LINE  GLOBAL  Variable  used  to  hold  the  value  which 

corresponds  to  the  specific  line  on  the 
screen  where  the  data  will  be  displayed. 


SAV_REC1  -  GLOBAL  Used  to  save  the  database  record  numbers  * 

SAV_REC16  of  the  Pay  records  associated  with  the  * 

selected  Master  record.  * 


FLAG_REC1  - 
FLAG_REC16 

GLOBAL 

Boolean  variables  used  to  Indicate  which  * 
associated  Pay  records  the  user  has  * 
marked  for  deletion.  * 

ED_REC_NUM 

GLOBAL 

Used  to  save  the  database  record  number  * 
of  the  Pay  record  the  user  has  selected  * 
for  editing.  * 

* 

LOW_DATE 

GLOBAL 

Used  to  save  the  ending  date  of  the  pay  * 
period  for  the  Pay  record  which  precedes  * 
the  Pay  record  currently  being  processed.* 

* 

HIGH_DATE 

GLOBAL 

Used  to  save  the  beginning  date  of  the  * 
pay  period  for  the  Pay  record  which  fol-  * 
lows  the  Pay  record  currently  being  pro-  * 
cessed.  * 

* 

GOOD_RO 

GLOBAL 

Boolean  variable  used  to  Indicate  whether* 
all  input  relational  operators  are  valid.* 

* 

BAD_SSAN 

GLOBAL 

Boolean  variable  used  to  indicate  whether* 
the  input  primary  key  is  valid.  * 

* 

S2-S7,S17, 

S26,S31 

GLOBAL 

Used  as  spacing  variables  in  the  print  * 

format  string  variables.  * 

'ff 

DCR_VAL 

GLOBAL 

Used  to  store  the  value  multiplied  by  the* 
DC_RATING  (database  variable)  in  deter-  * 

mining  the  WPSS  score.  * 

* 


* 

* 


GPA_VAL 


GLOBAL 


* 

■fr 

•Jr 

■k 

* 

•Jr 

•Jr 

•Jr 

•Jr 

•Jr 

■Jr 

•Jr 

■Jr 

■Jr 

■Jr 

■Jr 

■Jr 

■Jr 

Jr 

■Jr - 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 


SAT  VAL 


AA  VAL 


QUAN_VAL 


VERB_VAL 


LOOP  CNTRL 


GLOBAL 


GLOBAL 


GLOBAL 


GLOBAL 


LOCAL 


Used  to  store  the  value  multiplied  by  the* 
CUM_GPA  (database  variable)  in  deter-  * 
mining  the  WPSS  score.  * 

Jr 

Used  to  store  the  value  multiplied  by  the* 
SAT_CUM  (database  variable)  in  deter-  * 
mining  the  WPSS  score.  * 

■Jr 

Used  to  store  the  value  multiplied  by  the* 
AFOQT_AA  (database  variable)  in  deter-  * 
mining  the  WPSS  score.  * 


Used  to  store  the  value  multiplied  by  the* 
AFOQT_QUAN  (database  variable)  in  deter-  * 
mining  the  WPSS  score.  * 


Used  to  store  the  value  multiplied  by  the- 
AFOQT_VERB  (database  variable)  in  deter¬ 
mining  the  WPSS  score. 


Used  to  control  exit  from  the  main  pro¬ 
gram  loop.  While  TRUE,  control  remains  * 
within  the  loop.  The  variable  is  set  to  * 
FALSE  by  either  selecting  options  to  re-  * 
turn  to  dBASE  III  or  to  return  to  DOS.  * 

■Jr 

_ * 


F_PARA 

G_PARA 

R_PARA 

QO_PARA 

QS_PARA 

F_SELECT 

G_SELECT 

R_SELECT 

QO_SELECT 

QS_SELECT 

QUIT_KEY 

M_CHOICE 

P_CHOICE 

VP_CHOICE 

TQ_CHOICE 

FILT_STR 

T_FOR_STR 

EMPTY_M 

EMPTY_P 

REC_NUM 

DEL_FLAG 

FIRST.TIME 

IN_SSAN 

IN_FNAM 

IN_MNAM 

IN  LNAM 


PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUBLIC 

PUB1.IC 

PUBLIC 

PUBLIC 


T_PHON 

T_PATH 

M_FILE 

P_FILE 

CT_FILE 

NDX_LIST 

M_NDX 

P_NDX 

CT_NDX 

M_NDX_F 

P_NDX_F 

CT_NDX_F 

M_NDX_STR 

P_NDX_STR 

M_FORM_STR 

DEST_FILE 

T_M_FILE 

T_P_FILE 

T_CT_FILE 

T_M_NDX 

T_P_NDX 

T_CT_NDX 

T_M_NDX_F 

T_P_NDX_F 

T_CT_NDX_F 

LINE_NUM 

DISP_LINE 

SAV.RECl 

SAV_REC2 

SAV_REC3 

SAV_REC4 

SAV_REC5 

SAV_REC6 

SAV_REC7 

SAV_REC8 

SAV_REC9 

SAV_REC10 

SAV_REC11 

SAV_REC12 

SAV_REC13 

SAV_REC14 

SAV_REC15 

SAV_REC16 

FLAG_REC1 

FLAG_REC2 

FLAG_REC3 

FLAG_REC4 

FLAG_REC5 

FLAG_REC6 

FLAG_REC7 

FLAG_REC8 

FLAG_REC9 

FLAG_REC10 

FLAG_REC11 

FLAG  REC12 
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PUBLIC 

FLAG_REC13 

PUBLIC 

FLAG_REC 14 

PUBLIC 

FLAG_REC15 

PUBLIC 

FLAG_REC16 

PUBLIC 

ED_REC_NUM 

PUBLIC 

LOW_DATE 

PUBLIC 

HIGH_DATE 

PUBLIC 

G00D_R0 

PUBLIC 

BAD_SSAN 

PUBLIC 

S2 

PUBLIC 

S3 

PUBLIC 

S4 

PUBLIC 

S5 

PUBLIC 

S6 

PUBLIC 

S7 

PUBLIC 

S17 

PUBLIC 

S26 

PUBLIC 

S31 

PUBLIC 

DCR_VAL 

PUBLIC 

GPA_VAL 

PUBLIC 

SAT_VAL 

PUBLIC 

AA_VAL 

PUBLIC 

QUAN_VAL 

PUBLIC 

VERB_VAL 

PRIVATE 

L00P_CN'TRL 

*  Start  program  code.  * 

*  Set  dBASE  III  PLUS  status  line  off.  * 

SET  STATUS  OFF 

*  Set  dBASE  III  PLUS  bottom  line  off.  * 

SET  SCOREBOARD  OFF 

*  Display  initial  screen.  * 

@  1,  0  TO  3,79 

@  2,22  SAY  'ROTC  CADET  INFORMATION  SYSTEM  (RCIS)’ 

(a  4,  0  TO  18,79 

(3  6,33  SAY  'Version  I.IO' 

(a  8,38  SAY  'by' 

(9  10,31  SAY  'Carter  L.  Frank' 

(3  12,27  SAY  'The  University  of  Arizona' 

(3  14.18  SAY  'Department  of  Management  Information  Systems' 
(a  16,31  SAY  'Copyright  (C)  1987' 

(a  20,29  TO  22,50  DOUBLE 


*  Set  video  attributes  to  blink.  * 
SET  COLOR  TO  W*/N 

@  21,30  SAY  '  INITIALIZING  RCIS  ' 

(a  24,0 


*  Initialize  RCIS.  * 

*  Designate  RCIS_Pl.rRG  as  active  procedure  file.  * 

SET  PROCEDURE  TO  RCIS_P1 

*  Call  procedure  INIT  from  RCIS_P1.PRG  * 

DO  INIT 
A_SELECT  =  ' ' 

LOOP_CNTRL  =  .T. 

*  Restore  default  video  attributes.  * 

SET  COLOR  TO 
@  4,  0  CLEAR  TO  24,79 

PROC_VAL  =  0 

*  Main  Program  Loop  for  RCIS.  * 

DO  WHILE  (LOOP_CNTRL) 

*  If  the  function  sequence  code  is  not  "escape",  reset  sequence  code  * 

*  to  start  and  reset  function  selected  code  to  "add".  * 

IF  (SUBSTR(F_PARA,1,1)  <>  'C') 

F_PARA  =  STUFF(F_PARA,1,1,'A’) 

F_PARA  =  STUFF(F_PARA,6,1,’H') 

ENDIF 

*  While  a  function  has  not  been  selected,  do  the  following.  * 

DO  WHILE  (SUBSTR(F_PARA,1,1)  <>  ’B') 

*  Clear  menus  to  the  right  of  the  function  menu.  * 

@  4,19  CLEAR  TO  24,79 

*  Clear  the  text  display  area.  * 

@  18,  0  CLEAR  TO  24,79 

*  Display  "Select  Function"  box.  * 

(a  20,  1  TO  22,17 
@  21,  2  SAY  'SELECT  FUNCTION' 

*  Call  menu  assembly  routine,  passing  function  menu  parameter.  * 

CALL  MENU  WITH  F_PARA 
@  24,  0 

*  Get  function  choice  from  returned  parameter.  * 

F_SELECT  =  SUBSTR(F_PARA,6, 1) 


*  If  function  selected  is  not  "Return  to  dBASF."  or  "Exit  to  DOS" 

*  continue  with  the  following. 

CASE  F_SELECT  <=  'M* 

*  Initialize  group  menu  sequence  code  and  starting  position 

G_PARA  =  STUFF(G_PARA,1,1,'A') 

G_PARA  =  STUFF(G_PARA,6,1, 'H' ) 

*  While  a  groiip  has  not  been  selected,  do  the  following:  * 

DO  WHILE  SUBSTR(G_PARA,1,1)  <>  'B' 

*  Clear  text  display  area  and  display  "Select  Group"  box 

(3  18,  0  CLEAR  TO  24,79 

@  20,19  TO  22,32 

(§  21,20  SAY  ’SELECT  GROUP' 

*  Call  menu  assembly  routine,  passing  group  parameter. 

CALL  MENU  WITH  G_PARA 
@  24,0 

*  Get  group  selected  code.  * 

G_SELECT  =  SUBSTR(G_PARA,6, 1) 

*  If  no  group  selected,  then  "escape"  sequence  has  been  * 

*  pressed.  Set  function  sequence  code  to  "escape"  and  * 

*  exit  this  loop.  Control  returns  to  select  function  * 

*  loop  above,  * 

IF  SUBSTR(G_PARA,1,1)  =  'A' 

F_PARA  =  STUFF(F_PARA, 1 , 1 , 'c' ) 

EXIT 
END  IF 

qS_SELECT  =  ’  ' 

*  If  function  select  is  Query,  continue  with  the  * 

*  following:  * 

IF  (F_SELECT  =  'M') 

*  Initialize  query  select  menu  sequence  code  and  * 

*  starting  position.  * 

QS_PARA  =  STUFF(QS_PARA, 1, 1, ' A’ ) 

QS_PARA  =  STUFF(QS_PARA,6, 1, 'H' ) 


•fr 

* 


Vr 

Vf 


While  a  query  type  has  not  been  selected,  do  the 
following: 


DO  WHILE  SUBSTR(QS_PARA, 1, 1)  <>  'B' 


*  Clear  text  display  area  and  display  * 

*  "Select  Query"  box.  * 

@  18.  0  CLEAR  TO  2A,  79 
@  20,38  TO  22,51 
@  21,39  SAY  'SELECT  QUERY' 

*  Call  menu  assembly  routine,  passing  query  select  * 

*  parameter.  * 

CALL  MENU  WITH  QS_PARA 
@  24,0 

*  Get  query  selected  code.  * 

QS_SELECT  =  SUBSTR(QS_PARA,6, 1) 

*  If  no  query  selected,  then  "escape"  sequence  has  * 

*  been  pressed.  Set  function  sequence  code  to  * 

*  "escape"  and  exit  this  loop.  Control  returns  to  * 

*  select  group  loop  above.  * 

IF  SUBSTR(QS_PARA, 1, 1)  =  'A' 

G_PARA  =  STUFF(G_PARA, 1, 1, 'C' ) 

EXIT 

ENDIF 

*  Initialize  query  output  menu  sequence  code  and  * 

*  starting  position.  * 

Q0_PARA  =  STUFF( Q0_PARA , 1 , 1 , ' A ' ) 

Q0_PARA  =  STUFF(Q0_PARA,6, 1, 'H' ) 

*  While  a  query  output  has  not  been  selected,  do  * 

*  the  following:  * 

DO  WHILE  SUBSTR(QO_PARA, 1, 1)  <>  'B' 

*  Clear  text  display  area  and  display  * 

*  "Select  Output  Media"  box.  * 

@  18,  0  CLEAR  TO  24,  79 
@  20,56  TO  22,76 

@  21,57  SAY  'SELECT  OUTPUT  MEDIA' 

*  Call  menu  assembly  routine,  passing  query  * 

*  output  parameter.  * 

CALL  MENU  WITH  Q0_PARA 
@24,0 

*  Get  query  output  media  code.  * 
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QO_SELECT  =  SUBSTR(Q0_PARA,6, 1) 


*  If  no  qiipry  output  selected,  then  "escape"  * 

*  sequence  has  been  pressed.  Set  function  * 

*  sequence  code  to  "escape"  and  exit  this  loop.* 

*  Control  returns  to  select  query  loop  above.  * 

IF  SUBSTR(QO_PARA, 1, 1)  =  'A' 

QS_PARA  =  STUFF(QS_PARA, 1, 1, 'C' ) 

EXIT 

ENDIF 

ENDDO 

ENDDO 

*  If  function  select  is  not  Query  and  not  Transfer,  * 

*  continue  with  the  following;  * 

ELSE 

IF  (F_SELECT  <>  'L') 

*  Initialize  record  menu  sequence  code  and  * 

*  starting  position.  * 

R_PARA  =  STUFF(R_PARA, 1, 1, 'A' ) 

R_PARA  =  STUFF(R_PARA,6, 1, 'H' ) 

*  While  a  record  has  not  been  selected,  do  * 

*  the  following:  * 

DO  WHILE  SUBSTR(R_PARA, 1, 1)  <>  'B' 

*  Clear  text  display  area  and  display  * 

*  "Select  Record"  box.  * 

@  18,  0  CLEAR  TO  24,79 
@  20,36  TO  22,50 
@  21,37  SAY  'SELECT  RECORD' 

*  Call  menii  assembly  routine,  passing  query  * 

*  output  parameter.  * 

CALL  MENU  WITH  R_PARA 
0  24,0 

*  Get  record  code.  * 

R_SELECT  =  SUBSTR(R_PARA,6, I) 


*  If  no  record  selected,  then  "escape"  sequence  * 

*  has  been  pressed.  Set  function  sequence  code  * 

*  to  "escape"  and  exit  this  loop.  Control  * 

*  returns  to  select  group  loop  above.  * 


mmm 


G_PARA  =  STUFF(G_PARA, 1 , 1, 'C ) 

EXIT 

ENDIF 

ENDDO 

ENDIF 

ENDIF 

ENDDO 

*  If  a  function  has  been  selected,  then  transfer  control 

*  to  the  appropriate  procedure  file. 

IF  SUBSTR(F_PARA,1,1)  =  'B' 

*  If  the  function  selected  was  either  "Add"  or  "Edit", 

*  then  pull  in  the  WPSS  nmltiplier  values  to  be  used  by 

*  those  functions. 

IF  (F_SELECT  =  'H')  .OR.  (F_SEI.ECT  =  'l') 

SELECT  1 
USE  T_CDT_WP 
GO  TOP 

DCR_VAL  =  DCR_NUM 
GPA_VAL  =  GPA_NUM 
SAT_VAL  =  SAT_NUM 
AA_VAL  =  AA_NUM 
QUAN_VAL  =  QUAN_NUM 
VERB_VAL  =  VERB_NUM 
SELECT  1 
USE 

ENDIF 

*  If  the  function  selected  was  previous  to  "Query"  and 

*  and  RCIS_P2.PRG  is  not  the  active  procedure  file, 

*  designate  RCIS_P2.PRG  as  active  and  clear  the  bottom 

*  of  the  screen. 

IF  ((F_SELECT  <=  'L')  .AND.  (PROC_VAL  <>  2)) 

SET  PROCEDURE  TO  RCIS_P2 
PROC_VAL  =  2 
@  18,  0  CLEAR  TO  24,79 
@  21,33  SAY  'OPENING  FILES' 

@  24,  0 

ENDIF 

DO  CASE 

CASE  F_SELECT  =  'H' 

DO  ADD_REC 
CASE  F_SELECT  =  ' I ' 

DO  EDIT_REC 
CASE  F_SELECT  =  'j' 

DO  VIEW_REC 
CASE  F_SELECT  =  'K' 

DO  DEL_REC 
CASE  F_SELECT  =  'L' 

DO  TRANS_REC 
CASE  F_SELECT  =  'M' 
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(3  18,  0  CLEAR  TO  24,79 

(3  23,18  SAY  'BUILDING  QUERY  INPUT  MENU.  PLEASE  WAIT. 
(3  24,  0 


*  If  the  function  selected  was  "Query"  and  * 

*  RCIS_P3.PRG  is  not  the  active  procedure  file,  * 

*  designate  RCIS_P3.PRG  as  active  and  call  query 

*  main  driver  procedure.  * 

IF  (PROC_VAL  <>  3) 

SET  PROCEDURE  TO  RCIS_P3 
PROC_VAL  =  3 
ENDIF 

DO  QUERIES 

ENDCASE 

ENDIF 


*  If  either  "Exit  to  dBASE"  or  "Exit  to  DOS"  was  selected,  then  * 

*  exit  the  main  control  loop.  * 

CASE  (F_SELECT  =  'N')  .OR.  (F_SELECT  =  'O') 

LOOP_CNTRL  =  .F. 

EXIT 

ENDCASE 

ENDDO 

ENDDO 

*  Decouple  MENU.BIN  from  the  program.  * 

RELEASE  MODULE  MENU 

*  If  "Exit  to  dBASE"  was  selected,  restore  initial  dBASE  environment.  * 

*  Otherwise  return  to  DOS.  * 

IF  F_SELECT  =  'N' 

SET  CONFIRM  OFF 
SET  SCOREBOARD  ON 
SET  TALK  ON 
SET  ESCAPE  ON 
SET  SAFETY  ON 
SET  BELL  ON 
SET  STATUS  ON 
CLEAR  ALL 
ELSE 

CLEAR  ALL 
QUIT 
ENDIF 

*  End  of  Main  Program.  * 

RETURN 
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BEGINNING  OF  RCIS  Pl.PRG 


PROCEDURE  INIT 
* 

DO  SET_MENU 
DO  BOX_CHAR 
DO  F_MENU 
DO  G_MENU 
DO  R_MENU 
DO  QS_MENU 
DO  QO_MENU 
* 

RETURN 


SET  MENU 


SUMMARY: 


* 

The 

* 

envi 

* 

1. 

* 

2. 

* 

3. 

* 

4. 

* 

5. 

* 

6. 

iV 

7. 

* 

Deleted  records  are  not  displayed. 

The  user  must  press  enter  to  "confirm"  input  is  complete. 
Date  variables  do  not  display  the  century. 

The  system  bell  is  turned  off. 

Interactive  system  messages  are  turned  off. 

Files  will  be  overwritten  without  system  warning  prompts. 

The  assembly  routine,  MENU. BIN,  is  coupled  to  the  program  as 
a  callable  subroutine. 


PROCEDURE  SET_MENU 
* 

SET  DELETED  OFF 
SET  CONFIRM  ON 
SET  CENTURY  OFF 
SET  BELL  OFF 
SET  TALK  OFF 
SET  ESCAPE  OFF 
SET  SAFETY  OFF 
SET  DATE  BRITISH 
LOAD  MENU 
* 

RETURN 


•iWwW 


SUMMARY : 


BOX  CHAR 


The  BOX_CHAR  procedure  initializes  variables  that  define  the 
special  graphics  characters  used  to  create  the  menu  boxes 
imbedded  in  the  parameter  string  passed  to  MENU.BIN. 


VARIABLE  DECLARATIONS; 


■ft 

■k 

Variable  1 

Name  Status 

* 

. 

* 

* 

TL_B0X 

GLOBAL 

•ft 

fr 

TR_B0X 

GLOBAL 

* 

* 

BL_B0X 

GLOBAL 

* 

BR_B0X 

GLOBAL 

■k 

fc 

k 

LM_B0X 

GLOBAL 

k 

k 

k 

RM_B0X 

GLOBAL 

k 

k 

V_BAR 

GLOBAL 

k 

k 

X_BAR 

GLOBAL 

k 

k 

X_BAR1 

GLOBAL 

k 

X_BAR2 

GLOBAL 

k 

k 

X_BAR3 

GLOBAL 

k 

X_BAR4 

GLOBAL 

k 

k 

X_BAR5 

GLOBAL 

PROCEDURE  BOX_CHAR 
* 

PUBLIC  TL_BOX 
PUBLIC  TR_BOX 
PUBLIC  BL_BOX 
PUBLIC  BR_BOX 
PUBLIC  LM_BOX 
PUBLIC  RM_BOX 
PUBLIC  V_BAR 
PUBLIC  X_BAR 
PUBLIC  X  BARI 


Status  Purpose 


GLOBAL  Defines  top  left  corner  of  menu  box.  * 

GLOBAL  Defines  top  right  corner  of  menu  box.  * 

•fr 

GLOBAL  Defines  bottom  left  corner  of  menu  box.  * 

GLOBAL  Defines  bottom  right  corner  of  menu  box.  * 

* 

GLOBAL  Defines  left  T-bar  used  to  separate  the  * 

menu  title  from  the  menu  body.  * 

* 

GLOBAL  Defines  right  T-bar  used  to  separate  the  * 
menu  title  from  the  menu  body.  * 

GLOBAL  Defines  a  vertical  bar.  * 

* 

GLOBAL  Defines  5  character  double  horizontal  bar* 

* 

GLOBAL  Defines  10  character  double  horizontal  bar* 

* 

GLOBAL  Defines  12  character  double  horizontal  bar* 

* 

GLOBAL  Defines  14  character  double  horizontal  bar* 

* 

GLOBAL  Defines  15  character  double  horizontal  bar* 

* 

GLOBAL  Defines  17  character  double  horizontal  bar* 


■if*-*. ..  ’^1: 


PUBLIC  X_BAR2 
PUBLIC  X_BAR3 
PUBLIC  X_BAR4 
PUBLIC  X_BAR5 
* 

*  ASSIGN  SPECIAL  GRAPHICS  CHARACTERS 


TL_BOX  =  CHR(201) 

TR_BOX  =  CHR(187) 

BL_BOX  =  CHR(200) 

BR_BOX  =  CHR(188) 

LM_BOX  =  CHR(204) 

RM_BOX  =  CHR(185) 

V_BAR  =  CHR(186) 

X_BAR  =  CHR(205)  +  CHR(205)  +  CHR(205)  +  CHR(205)  +  CHR(205) 

X_BAR1  ^  X_BAR  +  X_BAR 

X_BAR2  =  X_BAR1  +  CHR(205)  +  CHR(205) 

X_BAR3  =  X_BAR2  +  CHR(205)  +  CHR(205) 

X_BAR4  =  X_BAR3  +  CHR(205) 

X_BAR5  =  X_BAR4  +  CHR(205)  +  CHR(205) 


RETURN 


F  MENU 


SUMMARY: 


The  F_MENU  procedure  initializes  the  string  parameter,  F_PARA,  * 
that  is  passed  to  MENU.BIN  to  create  the  function  menu.  The  * 
string  parameter  consists  of  two  parts.  The  first  seven  charac-  * 
ters  constitute  a  header  that  provides  control  information  for  the* 
assembly  routine.  These  control  functions  are  discussed  in  detail* 
within  the  VARIABLE  DECLARATION  section  that  follows.  The  remain-* 
ing  characters  (up  to  237)  constitute  text  data  that  represents  * 
the  actual  menu  box  that  will  be  displayed  by  the  assembly  menu  * 
driver  routine.  * 


VARIABLE  DECLARATIONS: 


Variable  Name 


SEQ_l 


Status 


LOCAL 


Purpose 


The  first  character  of  the  header  is  the  * 
sequence  code.  The  menu  driver  responds  * 
to  the  following  codes;  * 


A  =  Initial  sequence.  Paint  the  menu  and* 
accept  user  input.  If  this  code  is  * 
returned  from  MENU.BIN,  it  means  the* 
user  pressed  the  <Esc>  key  to  abort  * 
menu  selection.  In  this  event,  a  * 
"roll  back"  to  the  previous  menu  is  * 
initiated.  * 

* 

B  =  This  code  is  returned  when  a  menu  * 
selection  was  made  by  the  user.  If  * 
this  code  is  sent  to  MENU.BIN,  the  * 
menu  box  is  repainted  and  an  early  * 
exit  is  made  without  accepting  user  * 
input.  * 

* 

C  =  This  code  is  sent  to  MENU.BIN  to  * 

signal  a  "roll  back"  to  a  previous  * 
menu.  The  menu  driver  will  erase  * 
menu  frames  to  the  right  of  the  * 

current  menti,  and  new  user  input  is  * 
accepted.  * 


ACT  1 


LOCAL  The  second  character  in  the  header  is  the* 

active  menu  flag.  It  is  used  by  MENU.BIN* 
to  determin  whether  "roll  back"  will  be  * 
recognized  by  pressing  the  <Esc>  key.  * 
The  only  menu  that  does  not  permit  * 

"roll  back"  is  the  function  menu.  Setting* 
this  flag  to  A  indicates  the  "roll  back"  * 
is  disabled.  * 


SROW  1 


LOCAL 


The  third  character  in  the  header  is  the  * 


SCOI,_l 

LOCAL 

row  to  start  the  menu  box.  The  value  is  * 
computed  relative  to  A  =  0.  * 

'fc 

The  fourth  character  in  the  header  is  the* 

BROW_l 

LOCAL 

column  to  start  the  menu  box.  Its  value  * 
is  also  computed  relative  to  A  =  0.  * 

* 

The  fifth  character  in  the  header  is  the  * 

AROW_l 

LOCAL 

bottom  row  of  the  menu  box.  Its  value  is* 
also  computed  relative  to  A  =  0.  * 

■ft 

The  sixth  character  in  the  header  is  the  * 

SLEN_1 

LOCAL 

row  that  was  active  when  the  user  either  * 
pressed  the  <Enter>  key  for  selecting  a  * 
function  or  pressed  the  <Esc>  key  to  * 

abort  the  current  menu.  By  inspection  * 

this  position,  the  program  can  determine  * 
the  menu  item  that  the  user  selected.  * 

■ft 

The  seventh  character  in  the  header  is  * 

the  menu  field  wldth(or  character  length)* 
Total  width  includes  the  two  graphic  box  * 
characters.  The  value  is  also  computed  * 
relative  to  A  =  0.  * 

PROCEDURE  F_MENU 
* 

*  ASSIGN  FUNCTION  MENU  PARAMETER 

* 

PRIVATE  SEQ_1 
PRIVATE  ACT_1 
PRIVATE  SROW_l 
PRIVATE  SCOL_l 
PRIVATE  BROW_l 
PRIVATE  AROW_l 
PRIVATE  SLEN_1 
* 


SEQ_1 

ACT_1 

SROW_l 

SCOL_l 

BROW_l 

AROW_l 

SLEN_1 

* 

F_PARA 
F_PARA 
F_PARA 
F_PARA 
F_PARA 
F_PARA 
F_PARA 
F  PARA 


=  CHR(65  +  0) 

=  CHR(64  +  I) 

=  CHR(65  +  4) 

=  CHR(65  +  4) 

=  CHR(65  +  15) 

=  CHR(65  +  7) 

=  CHR(65  +  12) 

=  SEQ_1  +  ACT_1  +  SR0W_1  +  SC0L_1  +  BR0W_1  +  AR0W_1  +  SLEN_1 
=  F_PARA  +  TL_BOX  +  X_BAR1  +  TR_BOX 
=  F_PARA  +  V_BAR  +  '  FUNCTION  '  +  V_BAR 
=  F_PARA  +  LM_BOX  +  X.BARl  +  RM_BOX 
=  F_PARA  +  V_BAR  +  '  Add  '  +  V_BAR 

=  F_PARA  +  V_BAR  +  '  Edit  '  +  V_BAR 

=  F_PARA  +  V_BAR  +  '  View  '  +  V_BAR 

=  F  PARA  +  V_BAR  +'  Delete  '  +  V  BAR 


*  SUMMARY: 


R  MENU 


The  R_MENU  procedure  initializes  the  string  parameter,  R_PARA,  * 
that  is  passed  to  MENU.BIN  to  create  the  group  menu.  The  string  * 
parameter  construction  is  identical  to  that  specified  in  F_MENU  * 
for  the  function  menu.  * 


PROCEDURE  R  MENU 


*  ASSIGN  RECORD  MENU  PARAMETERS 


PRIVATE  SEQ_1 
PRIVATE  ACT_1 
PRIVATE  SR0W_1 
PRIVATE  SC0L_1 
PRIVATE  BR0W_1 
PRIVATE  AR0W_1 
PRIVATE  SLEN  1 


SEQ_1 

ACT_1 

SR0W_1 

SC0L_1 

BR0W_1 

AR0W_1 

SLEN_1 

* 

R_PARA 
R_PARA 
R_PARA 
R_PARA 
R_PARA 
R_PARA 
R  PARA 


=  CHR(65  +  0) 

=  CHR(64  +  3) 

=  CHR(65  +  4) 

=  CHR(65  +  36) 

=  CHR(65  +  9) 

=  CHR(65  +  7) 

=  CHR(65  +  16) 

SEQ_1  +  ACT_1  +  SR0W_1  +  SC0L_1  +  BR0W_1  +  AR0W_1  +  SLEN_1 
R_PARA  +  TL_B0X  +  X_BAR3  +  TR_B0X 
=  R  PARA  +  V  iAR  +  '  RECORDS  '  +  V  BAR 


R_PARA  +  LM_B0X  +  X_BAR3  +  RM_B0X 
R_PARA  +  V_BAR  +  '  Cadet  Master  ' 
R  PARA  +  V  BAR  +  ’  Cadet  Pav 


Cadet  Pay 


+  V_BAR 

+  V_BAR 
+  V  BAR 


=  R  PARA  +  BL  BOX  +  X  BAR3  +  BR  BOX 


RETURN 


m 

• 

iV 

* 

* 

* 

* 

* 

* 

* 

Vr 

* 

QS_MENU 


’V  SUMMARY; 


The  QS_MENU  procedure  initializes  the  string  parameter,  QS_PARA,  * 
that  is  passed  to  MENU.BIN  to  create  the  group  menu.  The  string  * 
parameter  construction  is  identical  to  that  specified  In  F_MENU  * 
for  the  function  menu.  * 


PROCEDURE  QS_MENU 
* 

*  ASSIGN  QUERY  SELECTION  MENU  PARAMETERS 

* 

PRIVATE  SEQ_1 
PRIVATE  ACT_1 
PRIVATE  SR0W_1 
PRIVATE  SC0L_1 
PRIVATE  BROW_I 
PRIVATE  AR0W_1 
PRIVATE  SLEN_1 
* 

SEQ_I  =  CHR(65  +  0) 

ACT_1  =  CHR(6A  +  4) 

SR0W_1  =  CHR(65  +  4) 

SC0L_1  =  CHR(65  +  36) 

BR0W_1  =  CHR(65  +17) 

AR0W_1  =  CHR(65  +  7) 

SLEN_1  =  CHR(65  +17) 

* 

QS_PARA  =  SEQ_1  +  ACT_1  +  SR0W_1  +  SC0L_1  +  BR0W_1  +  AR0W_1  +  SLEN_1 
qS.PARA  =  QS_PARA  +  TL_B0X  +  X_BAR4  +  TR_B0X 

qS_PARA  =  qS^PARA  +  V_BAR  +  '  QUERY  TYPE  '  +  V_BAR 

qS_PARA  =  qS_PARA  +  LM_B0X  +  X_BAR4  +  RM_B0X 

qS_PARA  =  qS_PARA  +  V_BAR  +  ’  WPSS  Info  ’  +  V_BAR 

qS_PARA  =  qS_PARA  +  V_BAR  +  '  Schlrshp  Qual  '  +  V_BAR 

qS_PARA  =  qS_PARA  +  V_BAR  +  '  DOC  Fiscal  Yr  ’  +  V_BAR 

qS_PARA  =  qS_PARA  +  V_BAR  +  '  AS  Class  Info  '  +  V_BAR 

qS_PARA  =  qS_PARA  +  V_BAR  +  '  2-Yr  Pgm  Cand  '  +  V_BAR 

qS_PARA  =  qS_PARA  +  V_BAR  +  '  Com  Date  Susp  '  +  V_BAR 

qS_PARA  =  qS.PARA  +  V_BAR  +  '  Schlrshp  Expr  '  +  V_BAR 

qS_PARA  =  qS^PARA  +  V_BAR  +  '  Weigh/ Aerobic  '  +  V_BAR 

qS_PARA  =  qS_PARA  +  V_BAR  +  ’  Individual  ’  +  V_BAR 

qS_PARA  =  qS_PARA  +  V_BAR  +  '  Pay  Info  '  +  V_BAR 

qS_PARA  =  qS_PARA  +  BL_B0X  +  X_BAR4  +  BR_B0X 

* 

RETURN 


=  qS_PARA  +  V_BAR 
=  qS_PARA  +  V_BAR 
=  qS_PARA  +  V_BAR 
=  qS_PARA  +  V_BAR 
=  qS_PARA  +  V_BAR 
=  qS_PARA  +  V_BAR 
=  qS.PARA  +  V_BAR 
=  qS^PARA  +  V_BAR 
=  qS_PARA  +  V_BAR 
=  qS_PARA  +  V_BAR 


QO_MENU 


SUMMARY: 


The  QO_MENU  procedure  initializes  the  string  parameter,  QO_PARA,  * 
that  is  passed  to  MENU.BIN  to  create  the  group  menu.  The  string  * 
parameter  construction  is  identical  to  that  specified  in  F_MENU  * 
for  the  function  menu.  * 


PROCEDURE  QO_MENU 
* 

*  ASSIGN  QUERY  OUTPUT  MENU  PARAMETERS 

* 

PRIVATE  SEQ_1 
PRIVATE  ACT_1 
PRIVATE  SR0W_1 
PRIVATE  SC0L_1 
PRIVATE  BR0W_1 
PRIVATE  AR0W_1 
PRIVATE  SEEN  1 


SEQ_1 

ACT_1 

SR0W_1 

SC0L_1 

BR0W_1 

AR0W_1 

SLEN_1 

* 

QO.PARA 

QO.PARA 

qO_PARA 

QO_PARA 

QO_PARA 

QO_PARA 

QO_PARA 

QO_PARA 

* 

RETURN 


=  CHR(65  +  0) 
=  CIIR(64  +  3) 
=  CHR(65  +  4) 
=  CHR(65  +  57) 
=  CHR(65  +  10) 
=  CHR(65  +  7) 
=  CHR(65  +  19) 


=  SEQ_1  +  ACT_1  +  SROW.l  +  SC0L_1  +  BR0W_1  +  AR0W_1  +  SLEN_1 


Q0_PARA 

Q0_PARA 

Q0_PARA 

Q0_PARA 

Q0_PARA 

Q0_PARA 

qO_PARA 


+  TL  BOX  +  X  BARS  +  TR  BOX 


+  V_BAR 


QUERY  OUTPUT  +  V_BAR 


+  LM  BOX  +  X  BARS  +  RM  BOX 


+  V_BAR 
+  V_BAR 
+  V  BAR 


80-Col  Screen 
80-Col  Printer 
132-Col  Printer 


+  V_BAR 
+  V_BAR 
+  V  BAR 


+  BL  BOX  +  X  BARS  +  BR  BOX 


IF  (QUIT_KEY) 

EXIT 
END  IF 
DO  INIT_DB 
SELECT  1 
IF  (EMPTY_M) 

DO  CASE 

*  If  the  Master  file  is  empty  and  the  user  has  selected  a  * 

*  Master  record  for  processing,  build  the  index  list  and  * 

*  continue  processing  the  users  database  request.  * 

CASE  R_SELECT  =  'H' 

IF  (.NOT.  FILE(M_NDX_F)) 

INDEX  ON  &M_NDX_STR  TO  &M_NDX 
END  IF 

DO  BLD_NDX  WITH  M_NDX 
SET  INDEX  TO  &NDX_LIST 

*  If  the  Master  file  is  empty  and  the  user  has  selected  a  * 

*  Pay  record  for  processing,  automatically  exit  this  func-  * 

*  tion  and  return  to  the  select  function  menu.  * 

CASE  R_SELECT  =  'l' 

@  22,  0 

?  CHR(7) 

0  23,  4  SAY  'MASTER  FILE  IS  EMPTY.  PRESS  ANY  KEY  TO  CONTINUE 
WAIT  ' ' 

EXIT 

ENDCASE 

ENDIF 

SET  FILTER  TO  &FILT_STR 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  record  which  matches  * 

*  the  primary  key  value.  '  * 

SEEK  IN_SSAN 
DO  CASE 

*  If  a  matching  Master  record  is  found,  set  up  the  screen  format  * 

*  and  prepare  all  files  required  to  process  the  record  display.  * 

CASE  EOF() 

DO  CASE 

*  If  the  user  has  selected  to  process  a  Master  record,  * 

*  issue  the  dBASE  III  PLUS  commands  that  coordinate  the  * 

*  Interaction  between  the  supporting  files  and  the  main  * 

*  file.  * 

CASE  R_SELECT  =  'H* 

(a  22,  0 

(a  23,  0 

@  23,20  SAY  'PREPARING  DATABASE  FILE  FOR  NEW  RECORD.' 

SET  FORMAT  TO  &M  FORM  STR 


APPEND  BLANK 

REC_NUM  =  RECNOO 

REPI^CE  SSAN  WITH  IN_SSAN 

SET  SCOREBOARD  ON 

SET  ESCAPE  OFF 

SET  CONFIRM  OFF 

CLAS  NUM  =  '  ?  ' 


*  Issue  'change'  command  to  display  the  record  data.  * 


CHANGE 

SET  CONFIRM  ON 
GOTO  REC_NUi1 
IF  PERM_STRT  =  'SAME' 

REPLACE  PERM.STRT  WITH  LOCAL_STRT 
REPLACE  PERM_CITY  WITH  LOCAL_CITY 
REPLACE  PERM_STAT  WITH  'AZ' 

REPLACE  PERM_ZIP  WITH  LOCAL_ZIP 
T_PHON  =  '602'  +  LOCAL_PHON 
REPLACE  PERM_PHON  WITH  T_PHON 
ENDIF 

REPLACE  WPSS  WITH  ((DC_RTNG*DCR_VAL)+(CUM_GPA*100. 00*GPA_VAL) 
+  ( SAT_CUM*SAT_VAL)+( AFOQT_AA*AA_VAL)+( AFOQT_QUAN*QUAN_VAL) 
+  (AFOQT_VERB*VERB_VAL)) 

DO  HGHT_CHK 
IN_FNAM  =  F_NAME 
IN_MNAM  =  M_NAME 
IN.LNAM  =  L,_NAME 
DO  RCIS  HDR 


If  Master  record  was  deleted  by  pressing  the 
<Ctrl>  <U>  keys,  then  prompt  the  user  to  see 
if  they  really  want  to  delete  the  record.  If 
they  do,  delete  it;  if  not,  recall  is  back  to 
current  status. 


IF  DELETEDO 
DO  D_PROMPT 
IF  P_CHOICE 
@  23,  0 

(9  23,23  SAY  'DELETING  MASTER  RECORD' 
PACK 

DEL_FLAG  =  .T. 

ELSE 

RECALL  RECORD  REC_NUM 
P_CHOICE  =  .T. 

GOTO  REC_NUM 
ENDIF 
ENDIF 

IF  (.NOT.  DEI._FLAG) 

CLAS_VAL  =  AS_CLASS 
SET  FILTER  TO 

COUNT  FOR  AS  CLASS  =  CLAS  VAL  TO  CLAS  TOT 


SELECT  3 


SEEK  CLAS_VAL 
IF  (.NOT.  EOFO) 

REPLACE  AS_CL_TOT  WITH  CLAS_TOT 
END  IF 
ENDIF 

IF  (.NOT.  DELETEDO)  .AND.  (.NOT.  DEL_FLAG) 

DO  P_PROMPT 
IF  (P_CHOICE) 

DO  ADD_PAY 
ENDIF 
ENDIF 

*  If  a  Master  record  was  not  found  for  the  input  primary  * 

*  key  and  the  user  has  selected  a  Pay  record  for  pro-  * 

*  cessing,  prompt  the  user  to  either  try  again  or  to  * 

*  exit  this  function.  * 

CASE  R_SELECT  =  'l' 

@  22,  0 

(3  23,  4  SAY  'MASTER  ' 

DO  ERR_NF 
IF  (M_CHOICE) 

LOOP 

ELSE 

EXIT 

ENDIF 

ENDCASE 

CASE  (.NOT.  EOFO) 

DO  CASE 

*  If  a  matching  Master  record  is  found  and  the  user  has  * 

*  selected  a  Master  record  for  processing,  prompt  the  * 

*  user  to  either  try  again  or  to  exit  the  function.  * 

CASE  (R_SELECT  =  'H') 

DO  ERR_RE 
IF  (M_CHOICE) 

LOOP 

ELSE 

EXIT 

ENDIF 

*  If  a  matching  Master  record  is  found  and  the  user  has  * 

*  selected  a  Pay  record  for  processing,  invoke  the  ADD_PAY  * 

*  procedure  and  continue  processing  the  user's  request.  * 

CASE  (R_SELECT  =  'l') 

IN_FNAM  =  F_NAME 
IN_MNAM  =  M_NAME 
IN_LNAM  =  L_NAME 
§  22,  0 
(3  23,  0 

@  23,20  SAY  'SEARCHING  DATABASE  FILE  FOR  EXISTING  PAY  RECORDS 
DO  ADD  PAY 


ENDCASE 


ENDCASE 

*  Give  the  user  the  opportunity  to  execute  this  function  again.  * 

DO  M_PROMPT 
ENDDO 

*  Close  the  database  files  used  in  this  function.  * 

SELECT  3 
USE 

SELECT  2 
USE 

SELECT  1 
USE 

CLOSE  FORMAT 

* 

F_PARA  =  STUFF(F_PARA, 1, 1, 'C' ) 

@  21,  0 

ON  ERROR 

* 

RETURN 


30 


-  Aj  i^J  < 


1 


* 

* 


ADD  PAY 


* 

* 

* 


SUMMARY: 


The  ADD_PAY  procedure  adds  new  subordinate  (Pay)  records  to  rela¬ 
tions  within  RCIS.  This  procedure  is  controlled  by  the  ADD_REC 
procedure  and  is  only  envoked  after  the  controlling  procedure  has 
determined  that  all  required  conditions  have  been  met.  This  pro¬ 
cedure  edit  checks  the  pay  date  periods  to  ensure  they  don't  over 
lap  and  it  allows  the  user  to  add  up  to  16  (maximum)  Pay  records 
to  any  one  Master  record.  This  procedure  is  terminated  when  the 
user  enters  a  <N>  in  the  ADD  field  displayed  on  the  screen. 


CALLED  PROCEDURES; 


VARIABLE  DECLARATIONS: 


Procedure  Name 


RCIS  HDR 


Location 


RCIS  P2.PRG 


■* 

* 

Vr 

* 

'/r 

* 


Variable  Name 


END  DATE 


ADD  MORE 


Status 


LOCAL 


LOCAL 


Purpose 


•:V 

■fe 

* 

* 

* 

* 

* 

Vr 

* 

•fr 

■A" 

* 

■A 

* 

* 

* 

A: 

-A- 


Used  to  save  the  ending  pay  date  from  the* 
previous  pay  period  so  it  can  be  compared* 
to  the  current  beginning  date.  * 

* 

Boolean  flag  which  indicates  whether  to  * 
add  the  input  pay  record  or  to  terminate  * 
the  add  and  the  procedure.  * 

* 

_ _ _ _ _ _ _ _ _ Ar 


PROCEDURE  ADD_PAY 

■A 

PRIVATE  END_DATE 
PRIVATE  AnD_MORE 

A 

SELECT  2 

*  If  the  Pay  file  is  empty,  set  up  the  index  file  and  * 

*  continue  processing  the  users  database  request.  * 


IF  (EMPTY_P) 

IF  (.NOT.  FILE(P_NDX_F)) 

INDEX  ON  &P_NDX_STR  TO  &P_NDX 
ENDIF 

SET  INDEX  TO  &P_NDX 
ENDIF 

SET  SCOREBOARD  ON 
SET  ESCAPE  ON 
CLEAR  TYPEAHEAD 


*  Build  the  screen  header  for  this  function. 


31 


(§  1,  0  TO  3,79  DOUBLE 

(9  2,25  SAY  'INDIVIDUAL  CADET  DATA  -  PAY  INFORMATION' 

@  2,  2  SAY  TRIM(LEFT(IN_LNAM,  10))  +  ' ,  ' +LEFT(  IN_FNAM ,  1 )  + '  ' +-LEFT(  IN_MNAM ,  1 ) 

/a  /  n  c*  A  vr  ’  r>T?/^  nT7‘r*TA.iATTVTr»  r*vtr\Tvir^  t  nr\r\L«'  * 


(a  4, 

0  SAY 

'  REC 

BEGINNING  ENDING 

KCS  ID 

BOOK 

+ 

'  FT 

ATP  FSP  ' 

@  5, 

0  SAY 

'  ADD 

PAY  DATE  PAY  DATE 

TUITION  (I  OR  0) 

FEES 

+ 

'  DAYS 

DAYS  DAYS' 

DISP 

LINE  = 

1 

LINE_NUM  =  6 

END_DATE  =  CTOD( ' Ol/Ol/Ol' ) 

SET  FILTER  TO  &FILT_STR 

Issue  dBASE  III  PLUS  command  to  go  to  the  record  which  matches  * 

*  the  primary  key  value.  * 

SEEK  IN_SSAN 
IF  (  .NOT.  EOFO) 

*  Display  the  associated  Pay  records  that  al^^eady  exist.  * 

DO  WHILE  ((.NOT.  E0F())  .AND.  (LINE_NUM  <=  22)) 

(a  LINE_NUM,  5  SAY  LTRIM(STR(DISP_LINE) ) 

(a  LINE_NUM,10  SAY  PAY_DATE1 
@  LINE_NUM,22  SAY  PAY_DATE2 
(a  LINE_NUM,33  SAY  TUITION 
(3  LINE_NUM,45  SAY  RES_STATUS 
(3  LINE_NUM,52  SAY  BOOK_FEES 
(a  LINE_NUM,62  SAY  FT_DAYS 
@  LINE_NUM,69  SAY  ATP.DAYS 
(a  LINE_NUM,76  SAY  FSP_DAYS 
DISP_LINE  -■=  DISP_LINE  +  1 
LINE_NUM  =  LINE.NUM  +  1 
END_DATE  =  PAY_DATE2 

*  Co  to  the  next  database  record  which  matches  the  primary  key.  * 

SKIP 

ENDDO 

ENDIF 

ADD_M0RE  =  .T. 

IF  (LINE_NUM  >  22) 

?  CHR(7) 

@  23,  0  SAY  'MAX  #  OF  PAY  RECORDS  HAVE  BEEN  ADDED.  PRESS  ANY  KEY  TO'  ; 
+  '  CONTINUE. ’ 

ELSE 

IN.PDl  =  CTOD( '01/01/01' ) 

IN_PD2  =  CT0D( '01/01/01' ) 

IN_TUITION  =0.00 
IN_RESTAT  =  '  ' 

IN_BOOKFEE  =0.00 
IN_FTDAY  =  0 

IN_ATPDAY  =  0 

IN_FSPDAY  =  0 
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’■  Allow  additional  Pay  records  to  be  added  by  highlighting  the  next 

*  available  line  and  accepting  user  inputs  for  that  record.  Continue 

*  the  loop  until  user  enters  an  <N>  in  the  ADD  field. 

DO  WHILE  ((ADD_MORE)  .AND.  (LINE_NUM  <=  22)) 

@  23,  0 

@  23,  0  SAY  "ENTER  'Y'  IN  ADD  FIELD  TO  ADD  PAY  RECORD.  ENTER  'N'"; 

+  "  IN  ADD  FIELD  TO  CANCEL  ADD." 

@  LINE_NUM,  1  GET  ADD_MORE  PICTURE  'Y' 

(a  LINE_NUM,  5  SAY  LTRIM(STR(DISP_LINE) ) 

(a  LINE_NUM,10  GET  IN_PD1 
(a  LINE_NUM,22  GET  IN_PD2 

(a  LINE_NUM,33  GET  IN_TUITION  PICTURE  '9999.99' 

(a  LINE_NUM,45  GET  IN_RESTAT  PICTURE  '!' 

@  LINE_NUM,52  GET  IN_BOOKFEE  PICTURE  '999.99' 

(a  LINE_NUM,62  GET  IN_FTDAY  PICTURE  '99' 

@  LINE_NUM,69  GET  IN_ATPDAY  PICTURE  '99' 

LINE_NUM,76  GET  IN_FSPDAY  PICTURE  '99' 

CLEAR  TYPEAHEAD 

*  Accept  user  inputs  for  the  new  Pay  record.  * 

READ 

IF  (ADD_MORE) 

IF  (IN_PD2  >=  IN_PD1) 

IF  (IN_PD1  >  END_DATE) 

*  Add  a  new  record  to  the  file  and  fill  it  with  the  * 

*  validated  input.  * 

APPEND  BLANK 

REPLACE  SSAN  WITH  IN_SSAN 

REPLACE  PAY_DATE1  WITH  IN_PD1 
REPLACE  PAY_DATE2  WITH  IN_PD2 
REPLACE  TUITION  WITH  IN_TUITION 
REPLACE  RES_STATUS  WITH  IN_RESTAT 
REPLACE  BOOK_FEES  WITH  IN_BOOKFEE 
REPLACE  FT_DAYS  WITH  IN_FTDAY 
REPLACE  ATP_DAYS  WITH  IN_ATPDAY 
REPLACE  FSP_DAYS  WITH  IN..FSPDAY 
<a  LINE_NUM,  1  SAY  ’  ' 

(a  LINE_NUM,  5  SAY  LTRIM(STR(DTSP_T,INE) ) 

(a  LINE_NUM,10  SAY  PAY_DATE1 
(a  LINE_NUM,22  SAY  PAY_DATR2 
0  LTN''_.NnM,33  SAY  TUITION 
@  LINE_NUM,45  SAY  RES_STATUS 
(3  LINE_NUM,52  SAY  BOOK_FEES 
@  LINE_NUM,62  SAY  FT_DAYS 
(?  LINE_NUM,69  SAY  ATP_DAYS 
(a  LINE_NUM,76  SAY  FSP_DAYS 
END_DATE  =  PAY_DATE2 
LINE_NUM  =  LINE_NUM  +  1 
DISP_LINE  =  DISP_LINE  +  1 
IN_Pni  =  CTOD( '01/01/01 ' ) 


IN_PD2  =  CTOD( 'Ol/Ol/Or ) 

IN_TUITION  =0.00 
IN_RESTAT  =  '  ’ 

IN_BOOKFEE  =0.00 
IN_FTDAY  =  0 
IN_ATPDAY  =  0 
IN_FSPDAY  =  0 
(a  23,  0 
ELSE 

@  23,  0 
?  CHR(7) 

(a  23,  0  SAY  'BEGINNING  PAY  DATE  <  OR  =  LAST  ENDING  PAY' 
+  '  DATE.  PRESS  ANY  KEY  &  TRY  AGAIN. ' 

WAIT  ' ' 

ENDIF 

ELSE 

(a  23,  0 
?  CHR(7) 

23,  0  SAY  'ENDING  PAY  DATE  <  BEGINNING  PAY  DATE.'  ; 

+  '  PRESS  ANY  KEY  &  TRY  AGAIN. ' 

WAIT  ' ' 

ENDIF 

ENDIF 

ENDDO 

ENDIF 

DO  RCrS_HDR 

* 

RETURN 


If 


EDIT  REG 
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'.9 


*  SUMMARY: 

* 


The  EDIT_REC  procedure  is  used  to  update  system  records.  The  edit* 
form  screens  let  the  user  type  over  previous  entries.  During  edit* 
ing,  the  user  can  abort  any  changes  and  restore  the  record  to  its* 
initial  state  by  pressing  the  <Esc>  key.  The  system  prevents  in-* 
advertant  deletion  of  records  by  "recalling"  all  records  marked  * 
for  deletion.  If  a  non-unique  access  key  (common  Last  Name)  has  * 
been  entered,  the  system  will  advise  you  to  reenter  a  unique  key  * 
for  the  desired  record.  * 


*  CALLED  PROCEDURES: 


* 

Procedure  Name 

Location 

* 

* 

* 

* 

DB3_ERR 

RCIS_P2.PRG 

* 

* 

SET_UP 

RCIS_P2.PRG 

* 

* 

INIT_DB 

RCIS_P2.PRG 

* 

V. 

* 

EDIT_SSAN 

RCIS_P2.PRG 

x: 

HGHT_CHK 

RCIS_P2.PRG 

■jV 

RCIS_HDR 

RCIS_P2.PRG 

* 

ir 

EDIT  PAY 

RCIS  P2.PRG 

* 

ir 

ERR^NF 

RCIS_P2.PRG 

•i'r 

fy 

* 

M_PROMPT 

RCIS_P2.PRG 

•ie 

K-' 

* 

ic 

PROCEDURE  EDIT_REC 

ir 

ON  ERROR  DO  DB3_ERR  WITH  ERROR(),  MESSAGE () 

M_CHOICE  =  .T. 

FIRST_TIME  =  .T. 

*  vvvvvvvvvvvvvvvvvvvv  ifl.  MAIN  OUTER  LOOP  vvvvvvvvvvvvvvvvvv  * 

*  Loop  until  user  chooses  to  terminate  this  edit  function  mode.  * 

.lO  WHILE  (M_CHOICE) 

DO  SET_UP 

*  If  the  user  has  pressed  the  <Esc>  key,  exit  this  function  and  * 

*  return  to  the  select  function  menu.  * 

IF  (QU1T_KEY) 

EXIT 
END  IF 
@  22,  0 
@  23,  0 

@  23,14  SAY  'SEARCHING  DATABASE  FILES  FOR  CORRESPONDING  RECORD(S)' 

DO  INIT_DB 

*  If  the  Master  file  is  empty,  automatically  exit  this  function  and  * 

*  return  to  the  select  function  menu.  * 


IF  (EMPTY_M) 

(3  22,  0 

?  CHR(7) 

(3  23,  4  SAY  'MASTER  FILE  IS  EMPTY.  PRESS  ANY  KEY  TO  CONTINUE.' 

WAIT  '  ' 

EXIT 
END  IF 

*  If  the  Pay  file  is  empty  and  a  Pay  record  has  been  selected  for  * 

*  processing,  automatically  exit  this  function  and  return  to  the  * 

*  select  function  menu.  * 

IF  (R_SELECT  =  'l'  .AND.  EMPTY_P) 

@  22,  0 

?  CHR(7) 

@  23,  7  SAY  'PAY  FILE  IS  EMPTY.  PRESS  ANY  KEY  TO  CONTINUE.' 

WAIT  '  ' 

EXIT 
ENDIF 
SELECT  1 

*  If  the  user  doesn't  enter  the  primary  key  (IN_SSAN),  use  * 

*  the  secondary  key  value  (T_FOR_STR)  which  is  composed  of  * 

*  the  cadet's  firs<-  and/or  middle  and/or  last  name.  * 

IF  (LEN(LTRIM(IN_SSAN))  =  0) 

SET  FILTER  TO  &T_FnR_STR 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  first  record  in  the  * 

*  file  which  matches  the  secondary  key  value.  * 

GOTO  TOP 
ELSE 

SET  FILTER  TO  &FILT_STR 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  record  which  matches 

*  the  primary  key  value. 

SEEK  IN_SSAN 
ENDIF 
DO  CASE 

*  If  a  matching  Master  record  is  found,  set  up  the  screen  format  * 

*  and  prepare  all  files  required  to  process  the  record  display.  * 

CASE  .NOT.  E0F() 

IN_SSAN  =  SSAN 
IN_FNAM  =  F_NAME 
IN_MNAM  =  M_NAME 
IN_LNAM  =  L_NAME 
DO  CASE 


*  If  the  user  has  selected  to  process  a  Master  record, 

*  issue  the  dBASE  III  PLUS  commands  that  coordinate  the 
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*  interaction  between  the  supporting  files  and  the  main  * 

*  file.  * 

CASE  R_SELECT  =  'H* 

REC_NUM  =  RECNOO 
DO  EDIT_SSAN 
ASCL_B4  =  AS_CLASS 

SELECT  3 
SEEK  ASCL_B4 
IF  (.NOT.  EOFO) 

CLAS_NUM  =  STR(AS_CL_T0T,3) 

ELSE 

CLAS_NUM  =  '  ?  ' 

ENDTF 

SELECT  1 
GOTO  REC_NUM 

SET  FORMAT  TO  &M_FORM_STR 
SET  SCOREBOARD  ON 
SET  ESCAPE  ON 
CLEAR  TYPEAHEAD 
SET  CONFIRM  OFF 

*  Issue  'change'  command  to  display  the  record  data.  * 
CHANGE 

SET  CONFIRM  ON 
GOTO  REC_NUM 
IF  PERM_STRT  =  'SAME' 

REPLACE  PERM_STRT  WITH  LOCAL_STRT 
REPLACE  PERM_CITY  WITH  LOCAL_CITY 
REPLACE  PERM_STAT  WITH  'AZ' 

REPLACE  PERM_ZIP  WITH  LOCAL_ZIP 
T_PHON  =  '602'  +  LOCAL_PHON 
REPLACE  PERM_PHON  WITH  T_PHON 
ENDIF 

REPLACE  WPSS  WITH  ( (DC_RTNG*DCR_VAL)+(CUM_GPA*100 . 00*GPA_VAL) 
+  ( SAT_CUM*SAT_VAL)+( AFOQT_AA*AA_VAL)+( AFOQT_QUAN*QUAN_VAL) 
+  (AFOQT_VERB*VERB_VAL)) 

DO  HGHT_CHK 

IF  (AS_CLASS  <>  ASCL_B4) 

CLAS_VAL  =  AS_CLASS 
SET  FILTER  TO 

COUNT  FOR  AS_CLASS  =  CT,AS_VAL  TO  CLAS_TOT 

SELECT  3 
SEEK  CLAS_VAL 
IF  (.NOT.  EOFO) 

REPLACE  AS_CL_T0T  WITH  CLAS_TOT 
ENDIF 

SELECT  1 
ENDIF 

GOTO  REC  NUM 


*  If  Master  record  was  inadvertantly  deleted,  recall  * 

*  it  back  to  a  current  status.  * 

IF  DELETEDO 

RECALL  RECORD  REC_NUM 
ENDIF 

DO  RCIS_HDR 

*  If  the  Pay  file  is  not  empty,  invoke  the  proce-  * 

*  dures  which  will  give  the  user  the  opportunity  * 

*  to  view  any  Pay  records  associated  with  the  se-  * 

*  lected  Master  record.  * 

IF  (.NOT.  EMPTY_P) 

DO  EDIT_PAY 
IF  (VP_CHOICE) 

IF  (M_CHOICE) 

LOOP 

ELSE 

EXIT 

ENDIF 

ENDIF 

ENDIF 

*  If  the  user  has  selected  to  process  a  Pay  record,  * 

*  invoke  the  EDIT_PAY  procedure  and  process  its  * 

*  return  response.  * 

CASE  R_SELECT  =  'l' 

DO  EDIT.PAY 
IF  (M_CHOICE) 

LOOP 

ELSE 

EXIT 

ENDIF 

ENDCASE 

If  no  matching  Master  record  is  found,  giv<»  the  user  the  option  * 
to  try  again  or  to  terminate  this  function.  * 

;e  E0F( ) 

@  22,  0 

(3  23,  4  SAY  'MASTER  ' 

DO  ERR_NF 
IF  (M_CHOICE) 

LOOP 

ELSE 

EXIT 

ENDIF 


ENDCASE 


*  Give  the  user  the  opportunity  to  execute  this  function  again. 


DO  M  PROMPT 


*  Close  the  database  files  used  in  this  function.  * 

SELECT  3 
USE 

SELECT  2 
USE 

SELECT  1 
USE 

CLOSE  FORMAT 

* 

F_PARA  =  STUFF(F_PARA, 1, 1, 'C' ) 

@  21,  0 

ON  ERROR 

)V 

RETURN 
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EDIT_SSAN 


891 


SUMMARY: 


The  EDIT_SSAN  procedure  allows  the  user  to  change  the  primary  key’’ 
(SSAN).  This  procedure  Is  controlled  by  the  EDIT_REC  procedure  '■ 
and  is  only  envoked  after  the  controlling  procedure  has  located 
the  Master  record.  The  prlmary( SSAN)  and  secondary  (F_NAME,  ^ 
M_NAME  &  L_NAME)  keys  for  the  current  record  will  be  displayed  on-' 
the  screen  and  the  system  will  allow  the  user  to  change  the  pri-  ^ 
mary  key  if  desired.  This  procedure  is  only  envoked  when  the  user’’ 
has  selected  a  Master  record  to  edit.  If  the  primary  key  is 
changed,  this  procedure  will  also  check  the  Pay  record  file  for  '* 
any  corresponding  Pay  records  and  change  them  to  match  the  new 
key.  The  system  checks  to  see  if  the  new  key  already  exists  •' 

before  it  makes  any  changes. 


*  VARIABLE  DECLARATIONS: 

* 

*  Variable  Name 


Status 


Purpose 


TT 

* 

NEW_SSAN 

LOCAL 

Used  to  store  the  new  value  for  the 

•  7T 

if 

• 

* 

* 

primary  key. 

* 

* 

* 

ES_CHOICE 

LOCAL 

Boolean  flag  which  indicates  whether 

the 

if 

* 

user  wants  to  change  the  primary  key 

if 

Vf 

(SSAN). 

if 

* 

if 

* 

DONE 

LOCAL 

Boolean  flag  which  indicates  whether 

the 

if 

procedure  has  completed  processing  the 

if 

if 

changes  or  has  encountered  an  error. 

if 

ir 

if 

if 

if 

PROCEDURE  EDIT_SSAN 
* 

ES_CHOICE  =  .F. 

(3  22,  0 
(3  23,  0 
?  CHR(7) 

@  23,  4  SAY  "MASTER  RECORD  FOUND.  DO  YOU  WANT  TO  CHANGE  THIS  CADET'S  SSAN 
+  "  [Y/N]?  "  GET  ES_CHOICE  PICTURE  'Y' 

CLEAR  TYPEAHEAD 
READ 

IF  (ES_CHOICE) 

DONE  =  .F. 

NEW_SSAN  =  ' 

*  Continue  loop  until  user  enters  a  valid  primary  key  change  or  a  * 

*  valid  exit  sequence.  * 

DO  WHILE  (.NOT.  DONE) 


PICTURE  '@R  999-99-9999' 


@ 

18,  0 

CLEAR  TO  24,79 

@ 

18,11 

SAY 

'SSAN' 

@ 

18,16 

SAY 

IN_SSAN 

PICTURE  '@R  999-99-9999' 

(§ 

19,  5 

SAY 

'First  Name' 

19,16 

SAY 

IN_FNAM 

PICTURE  '!!!!!!!!!!!!!!! 

20,  4 

SAY 

'Middle  Name' 

20,16 

SAY 

IN_MNAM 

PICTURE  '!!!!!!!!!!!!!!! 

21,  6 

SAY 

'Last  Name' 

(9 

21,16 

SAY 

IN_LNAM 

PICTURE  '!!!!!!!!!!!!!!! 

@ 

18,35 

SAY 

'New  SSAN'  GET 

NEW_SSAN 

PICTURE  '@R  999-99-9999' 

20,35 

SAY 

'Enter  New  SSAN 

1 

or 

21,35 

SAY 

'Press  ESC  to  Continue.' 

CLEAR  TYPEAHEAD 

*  Accept  user's  input  for  primary  key  change.  * 

READ 

DONE  =  .T. 

*  If  the  input  wasn't  null  and  it  wasn't  equal  to  the  existing  * 

*  one,  then  continue  with  the  following:  * 

IF  (LEN(LTRIM(NEW_SSAN))  <>  0)  .AND.  (SSAN  <>  NEW_SSAN) 

DO  SSAN_CHK  WITH  NEW_SSAN 


*  Continue  if  input  syntax  is  correct.  * 


IF  (.NOT.  BAD_SSAN) 

SET  FILTER  TO 
SEEK  NEW_SSAN 

*  Continue  if  new  input  key  doesn't  already  exist.  * 
IF  (EOFO) 

IF  (.NOT.  (EMPTY_P)) 

SELECT  2 

SET  FILTER  TO  &FILT_STR 
SEEK  IN  SSAN 


*  Continue  loop  until  all  associated  Pay  records  have  * 

*  been  reassigned  the  new  key  value.  * 


DO  WHILE  (.NOT.  E0F( ) ) 

REPLACE  SSAN  WITH  NEW_SSAN 
SEEK  IN_SSAN 
ENDDO 
END  IF 
SELECT  1 
GOTO  REC_NUM 

*  Reassign  selected  Master  record  with  new  key  value.  * 

REPLACE  SSAN  WITH  NEW_SSAN 
IN_SSAN  =  SSAN 
IN  FNAM  =  F  NAME 


IN_MNAM  =  M_NAME 
IN_LNAM  =  L_NAME 
ELSE 

@  23,  0 
?  CHR(7) 

@  23,  0  SAY  ’SSAN  ALREADY  ASSIGNED  TO  ANOTHER  RECORD.  PRE 
+  ’  ANY  KEY  AND  TRY  AGAIN. ' 

WAIT  ' ' 

DONE  =  .F. 

LOOP 
END  IF 
ELSE 

@  23,  0 
?  CHR(7) 

(3  23,  0  SAY  'SSAN  FIELD  MUST  HAVE  NINE  (9)  DIGITS.  PRESS  ANY 
+  '  KEY  AND  TRY  AGAIN. ' 


WAIT  '  ' 

@  23,  0 
DONE  =  .F. 
LOOP 
ENDIF 
END  IF 
ENDDO 
ENDIF 

SET  FILTER  TO  &FILT_STR 

* 

RETURN 


* 

* 

* 


EDIT_PAY 


SUMMARY; 


The  EDIT_PAY  procedure  allows  the  user  to  update  Pay  records  al-  * 
ready  on  file.  This  procedure  is  controlled  by  the  EDIT_REC  pro-* 
cedure  and  is  only  envoked  after  the  controlling  procedure  has  lo* 
cateJ  a  corresponding  Master  record.  This  procedure  edit  checks  * 
the  newly  entered  pay  date  periods  to  ensure  they  don't  overlap  * 
and  it  allows  the  user  to  view  all  Pay  records  on  the  same  screen* 


■>v 

(16  maximum). 

The  user  is  asked  to  enter  the  number  which  corres* 

■A- 

ponds  to  the 

record 

they  want  to  updat 

e  and  the  system  highlights* 

* 

the  selected 

record 

This  procedure  is  terminated  when  the  user 

A 

enters  a  <0'^ 

in  the 

prompt  field. 

A 

* 

A 

* 

CALLED  PROCEDURES; 

A 

* 

* 

Procedure  Name 

Location 

A 

A 

* 

ERR_NF 

RCIS_P2.PRG 

A 

* 

VP_PR0MPT 

RCIS_P2.PRG 

A 

* 

INIT_SAV 

RCIS_P2.PRG 

JU 

'A' 

SAV_RECS 

RCIS_P2.PRG 

A 

Vf 

EDT_LINE 

RCIS_P2.PRG 

A 

A 

RCIS_HDR 

RCIS_P2.PRG 

A 

A 

M_PR0MPT 

RCIS_P2.PRG 

A 

A 

A 

A 

VARIABLE  DECLARATIONS; 

A 

A 

* 

A 

Variable  Name 

Status 

Purpose 

A 

A 

ED_REC_CHR 

LOCAL 

Used  to  store 

the  user's  input  record 

* 

A 

A 

number. 

A 

A 

A 

ED_REC_NUM 

LOCAL 

Used  to  store 

the  numeric  equivalent  of 

* 

A 

ED  REC  CHR. 

A 

A 

A 

PROCEDURE  EDIT_PAY 
* 

SELECT  2 

SET  FILTER  TO  &FILT_STR 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  record  which  matches  * 

*  the  primary  key  value.  * 

SEEK  IN_SSAN 
DO  CASE 

*  If  no  matching  Pay  records  are  found,  give  the  user  the  option 

*  to  try  again  or  to  terminate  this  function. 

CASE  EOFO 


( 


mW 

( 


IF  (R_SELECT  =  ' l' ) 

@  22,  0 

(a  23,  7  SAY  'PAY  ' 
DO  ERR_NF 
END  IF 


*  If  matching  Pay  records  are  found,  build  Edit  Pay  records  screen  * 

*  and  display  all  the  current  associated  Pay  records.  * 


CASE  .NOT.  EOF() 

VP_CHOICE  =  .F. 

IF  (R_SELECT  =  'H') 

DO  VP_PRMPT 
ENDIF 

IF  (VP_CHOICE)  .OR.  (R_SELECT  =  'l') 

SET  SCOREBOARD  ON 
SET  ESCAPE  ON 
CLEAR  TYPEAHEAD 
@  1,  0  TO  3,79  DOUBLE 

(a  2,25  SAY  'INDIVIDUAL  CADET  DATA  -  PAY  INFORMATION' 
INITIALS  =  LEFT(IN_FNAM,1)+'  ’ +LEFT( IN_MNAM, 1 ) 

@  2,  2  SAY  TRIM(LEFT(IN_LNAM, 10))+' ,  '+INITIALS 


@  4,  0  SAY  '  REC 

+  'BOOK 

@  5,  0  SAY  '  # 

+  'FEES 
DO  INIT_SAV 
DISP_LINE  =  1 
LINE  NUM  =  6 


BEGINNING 
FT  ATP 
PAY  DATE 
DAYS  DAYS 


ENDING 
FSP  ' 
PAY  DATE 
DAYS' 


RESID 


TUITION  (I  OR  0) 


*  Continue  loop  until  all  associated  Pay  records  have  been 

*  displayed. 


DO  WHILE  ((.NOT.  EOF())  .AND.  (LINE_NUM  <=  22)) 
(9  LINE_NUM,  5  SAY  LTRIM(STR(DISP_LTNE ) ) 

@  LINE_NUM,10  SAY  PAY_DATE1 
(a  LINE_NUM,22  SAY  PAY_DATE2 
<§  LINE_NUM,33  SAY  TUITION 
(3  LINE_NUM,45  SAY  RES_STATUS 
(3  LINE_NUM,52  SAY  BOOK_FEES 
@  LINE_NUM,62  SAY  FT_DAYS 
(a  LINE_NUM,69  SAY  ATP_DAYS 
(a  LINE_NUM,76  SAY  FSP_DAYS 
DO  SAV_RECS 

DISP_LINE  =  DISP_LINE  +  1 
LINE_NUM  =  LINE_NUM  +  1 
SKIP 
ENDDO 

ED  REC  NUM  =  1 


*  Continue  loop  until  user  enters  the  termination  value  of  * 
-V  <o>  in  the  response  field.  + 


DO  WHILE  (ED_REC_NUM  <>  0) 
ED  REC  CHR  =  'O  ' 


@  23,  0 

@  23,  0  SAY  'ENTER  THE  REC#  OF  PAY  RECORD  TO  BE  EDITED  (OR  O'; 

+  '  TO  EXIT)  ->  '  GET  ED_REC_CHR  PICTURE  '99' 

CLEAR  TYPEAHEAD 
READ 

ED_REC_CHR  =  LTRIM(RTRIM(ED_REC_CHR) ) 

ED_REC_NUM  =  INT(VAL(ED_REC_CHR) ) 

IF  (ED_REC_NUM  <>  0) 

DO  EDT_LINE 
IF  LINE_NUM  >  0 

@  LINE_NUM,  5  SAY  LTRIM( STR(ED_REC_NUM) ) 

@  LINE_NUM,10  SAY  PAY_DATE1 
@  LINE_NUM,22  SAY  PAY_DATE2 
@  LINE_NUM,33  SAY  TUITION 
@  LINE_NUM,45  SAY  RES_STATUS 
@  LINE_NUM,52  SAY  BOOK_FEES 
@  LINE_NUM,62  SAY  FT_DAYS 
@  LINE_NUM,69  SAY  ATP_DAYS 
(3  LINE_NUM,76  SAY  FSP_DAYS 
ELSE 

(3  23,  0 
?  CHR(7) 

@  23,  0  SAY  'ENTERED  AN  INVALID  REC^^  PRESS  ANY  KEY  &'  ; 
+  '  TRY  AGAIN. ' 

WAIT  ' ' 

END  IF 
END  IF 
ENDDO 

DO  RCIS_HDR 

*  Give  the  user  the  opportunity  to  execute  this  function  again.* 

DO  M_PROMPT 
ENDIF 

ENDCASE 

* 

RETURN 
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EDI  LINE 


( 


SUMMARY: 


The  EDT_IiTNE  procedure  searches  through  previously  saved  record 
number  values  and  locates  the  Pay  records  which  are  before  and 
after  current  record.  It  saves  the  date  boundaries  from  those 
records  so  the  system  can  ensure  that  the  updates  do  not  cause 
any  of  the  pay  periods  to  overlap.  This  procedure  is  also 
controlled  by  the  EDIT_REC  procedure. 


CALLED  PROCEDURES: 


Procedure  Name 


Location 


ED  GETS 


RCIS  P2.PRG 


PROCEDURE  EDT  LINE 


LINE_NUM  =  0 

LOW_DATE  =  CTOD  (' 01/01/01') 
HIGH_DATE  =  CTOD  ('12/31/99') 

DO  CASE 

CASE  ED_REC_NUM  =  1 
IF  SAV_REC1  >  0 
IF  SAV_REC2  >  0 
GOTO  SAV_REC2 
HIGH.DATE  =  PAY_DATE1 
ENDIF 

LINE_NUM  =  ED_REC_NUM  +  5 
GOTO  SAV_REC1 
DO  ED_GETS 
ENDIF 

CASE  ED_REC_NUM  =  2 
IF  SAV_REC2  >  0 
IF  SAV_REC1  >  0 
GOTO  SAV_REC1 
L0W_DATE  =  PAY_DATE2 
ENDIF 

IF  SAV_REC3  >  0 
GOTO  SAV_REC3 
HIGILDATF,  =  PAY_DATE1 
ENDIF 

LINE_NUM  =  ED_REC_NUM  +  5 
GOTO  SAV_REC2 
DO  ED_GETS 
ENDIF 

CASE  ED_REC_NUM  =  3 
IF  SAV_REC3  >  0 
IF  SAV_REC2  >  0 
GOTO  SAV_REC2 
LOW  DATE  =  PAY  DATE2 


END  IF 

IF  SAV_REC4  >  0 
GOTO  SAV_REC4 
HIGH_DATE  =  PAY_DATE1 
ENDIF 

LINE_NUM  =  ED_REC_NUM  +  5 
GOTO  SAV_REC3 
DO  ED_GETS 
ENDIF 

CASE  ED_REC_NUM  =  4 
IF  SAV_REC4  >  0 
IF  SAV_REC3  >  0 
GOTO  SAV_REC3 
LOW_DATE  =  PAY_DATE2 
ENDIF 

IF  SAV_REC5  >  0 
GOTO  SAV_REC5 
HIGH_DATE  =  PAY_DATE1 
ENDIF 

LINE_NUM  =  ED_REC_NUM  +  5 
GOTO  SAV_REC4 
DO  ED_GETS 
ENDIF 

CASE  ED_REC_NUM  =  5 
IF  SAV_REC5  >  0 
IF  SAV_REC4  >  0 
GOTO  SAV_REC4 
LOW_DATE  =  PAY_DATE2 
ENDIF 

IF  SAV_REC6  >  0 
GOTO  SAV_REC6 
HIGH_DATE  =  PAY_DATE1 
ENDIF 

LINE_NUM  =  ED_REC_NUM  +  5 
GOTO  SAV_REC5 
DO  ED_GETS 
ENDIF 

CASE  ED_REC_NUM  =  6 
IF  SAV_REC6  >  0 
IF  SAV_REC5  >  0 
GOTO  SAV_REC5 
LOW_DATE  =  PAY_DATE2 
ENDIF 

IF  SAV_REC7  >  0 
GOTO  SAV_REC7 
HIGH_DATE  =  PAY_DATE1 
ENDIF 

LINE_NUM  =  ED_REC_NUM  +  5 
GOTO  SAV_REC6 
DO  ED_GETS 
ENDIF 

CASE  ED_REC_NUM  =  7 
IF  SAV_REC7  >  0 


IF  SAV_REC6  >  0 
GOTO  SAV  REC6 
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LOW_DATE  =  PAY_DATE2 
ENDIF 

IF  SAV_REC8  >  0 
GOTO  SAV_REC8 
HIGH_DATE  =  PAY_DATE1 
ENDIF 

LINE_NUM  =  ED_REC_NUM  +  5 
GOTO  SAV_REC7 
DO  ED_GETS 
ENDIF 

ED_REC_NUM  =  8 
IF  SAV_REC8  >  0 
IF  SAV_REC7  >  0 
GOTO  SAV_REC7 
LOW_DATE  =  PAY_DATE2 
ENDIF 

IF  SAV_REC9  >  0 
GOTO  SAV_REC9 
HIGH_DATE  =  PAY_DATE1 
ENDIF 

LINE_NUM  =  ED_REC_NUM  +  5 
GOTO  SAV_REC8 
DO  ED_GETS 
ENDIF 

ED_REC_NUM  =  9 
IF  SAV_REC9  >  0 
IF  SAV_REC8  >  0 
GOTO  SAV_REC8 
LOW.DATE  =  PAY_DATE2 
ENDIF 

IF  SAV.RECIO  >  0 
GOTO  SAV_REC10 
HIGH_DATE  =  PAY.DATEl 
ENDIF 

LINE_NUM  =  ED_REC_NlfM  +  5 
GOTO  SAV_REC9 
DO  ED_GETS 
ENDIF 

ED_REC_NUI1  =10 
IF  SAV_REC10  >  0 
IF  SAV_REC9  >  0 
GOTO  SAV_REC9 
LOW_DATE  =  PAY_0ATE2 
ENDIF 

IF  SAV_REC11  >  0 
GOTO  SAV_RECI1 
HIGH_DATE  =  PAY_DATE1 
ENDIF 

LINE_NUM  =  ED_REC_NUM  +  5 
GOTO  SAV_REC10 
DO  ED_GETS 
ENDIF 

ED_REC_NUM  =  11 
IF  SAV_REC11  >  0 
IF  SAV  RECIO  >  0 


GOTO  SAV_REC10 
LOW_DATE  =  PAY_DATE2 
ENDIF 

IF  SAV_REC12  >  0 
GOTO  SAV_REC12 
HIGH_DATE  =  PAY_DATE1 
ENDIF 

LINE_NUM  =  ED_REC_NUM  +  5 
GOTO  SAV_REC11 
DO  ED_GETS 
ENDIF 

CASE  ED_REC_NUM  =  12 
IF  SAV_REC12  >  0 
IF  SAV_REC11  >  0 
GOTO  SAV_REC11 
LOW_DATE  =  PAY_DATE2 
ENDIF 

IF  SAV_REC13  >  0 
GOTO  SAV_REC13 
HIGH_DATE  =  PAY_DATE1 
ENDIF 

LINE_NUM  =  ED_REC_NUM  +  5 
GOTO  SAV_REC12 
DO  ED_GETS 
ENDIF 

CASE  ED_REC_NUM  =  13 
IF  SAV_REC13  >  0 
IF  SAV_REC12  >  0 
GOTO  SAV_REC12 
LOW_DATE  =  PAY_DATE2 
ENDIF 

IF  SAV_REC14  >  0 
GOTO  SAV_REC14 
HIGH_DATE  =  PAY.DATEl 
ENDIF 

LINE_NUM  =  ED_REC_NUM  +  5 
GOTO  SAV_REC13 
DO  ED_GETS 
ENDIF 

CASE  ED_REC_NUM  =  14 
IF  SAV_REC14  >  0 
IF  SAV_REC13  >  0 
GOTO  SAV_REC13 
LOW_DATE  =  PAY_DATE2 
ENDIF 

IF  SAV_REC15  >  0 
GOTO  SAV_REC15 
HIGH_DATE  =  PAY_DATE1 
ENDIF 

LINE_NUM  =  ED_REC_NUM  +  5 
GOTO  SAV_REC14 
DO  ED_GETS 
ENDIF 

CASE  ED_REC_NUM  =  15 
IF  SAV  REC15  >  0 


IF  SAV_REC14  >  0 
GOTO  SAV_REC14 
LOW_DATE  =  PAY_DATE2 
END  IF 

IF  SAV_REC16  >  0 
GOTO  SAV_REC16 
HIGH_DATE  =  PAY_DATE1 
END  IF 

LINE_NUM  =  ED_REC_NUM  +  5 
GOTO  SAV_REC15 
DO  ED_GETS 
END  IF 

CASE  ED_REC_NUM  =  16 

IF  SAV_REC16  >  0 
IF  SAV_REC15  >  0 
GOTO  SAV_REC15 
LOW_DATE  =  PAY_DATE2 
END  IF 

LINE_NUM  =  ED_REC_NUM  +  5 
GOTO  SAV_REC16 
DO  ED_GETS 
END  IF 

ENDCASE 


RETURN 


ED  GETS 
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SUIIMARY; 


The  ED_GETS  procedure  highlights  the  record  selected  for  the 
update,  accepts  the  user's  changes  and  executes  the  commands 
which  actually  change  the  database  files. 


VARIABLE  DECLARATIONS; 


Variable  Name 


Status 


* 

* 

* 

* 


IN_SSAN 

IN_PD1 

IN_PD2 

IN_TUITION 

IN_RESTAT 

IN_BOOKFEE 

IN_FTDAY 

IN_ATPDAY 

IN  FSPDAY 


LOCAL 


ft 

ft 


Purpose 

Used  to  store  user  update  inputs. 


PROCEDURE  ED. 
* 

PRIVATE  BAD. 

* 

BAD_ENTRY  = 
IN_PD1 
IN_PD2 
IN_TUITION  = 
IN_RESTAT  = 
IN_BOOKFEE  = 
IN_FTDAY 
IN_ATPDAY  = 
IN  FSPDAY  = 


GETS 


ENTRY 


.T. 

PAY.DATEl 

PAY_DATE2 

TUITION 

RES_STATUS 

BOOK_FEES 

FT_DAYS 

ATP_DAYS 

FSP  DAYS 


* 

* 


Continue  loop  until  all  changes  for  the  selected  Pay  record  have  been 
validated  and  the  entire  entry  is  determined  to  be  a  "Good  Entry". 


DO  WHILE  (BAD_ENTRY) 
@  LINE_NUM,  5 


SAY 

LTR IM ( STR ( ED_REC_NUM ) ) 

GET 

IN. 

.PDl 

GET 

IN. 

.PD2 

GET 

IN. 

.TUITION 

PICTURE 

'9999 

GET 

IN. 

.RESTAT 

PICTURE 

'  !  ' 

GET 

IN. 

.BOOKFEE 

PICTURE 

'999. 

GET 

IN. 

.FTDAY 

PICTURE 

'99' 

GET 

IN. 

.ATPDAY 

PICTURE 

'99' 

GET 

IN. 

.FSPDAY 

PICTURE 

'99' 

CLEAR  TYPEAHEAD 
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.* 

* 

* 

* 


* 

* 

* 

* 

* 

.* 

* 

* 

* 

* 

* 

* 

* 

■fr 

it 

* 


* 


"'•V" 


*  Accept  the  user's  input  for  this  Pay  record  change. 
READ 


IF  IN_PD1  <=  IN_PD2 
IF  IN_PD1  >  LOW_DATE 
IF  IN_PD2  <  HIGH_DATE 

*  Update  the  Pay  record  with  the  validated  information. 

REPLACE  SSAN  WITH  IN_SSAN 

REPLACE  PAY_DATE1  WITH  IN_PD1 
REPLACE  PAY_DATE2  WITH  IN_PD2 
REPLACE  TUITION  WITH  IN_TUITION 
REPLACE  RES_STATUS  WITH  IN_RESTAT 
REPLACE  BOOK_FEES  WITH  IN_BOOKFEE 
REPLACE  FT_DAYS  WITH  IN_FTDAY 
REPLACE  ATP_DAYS  WITH  IN_ATPDAY 
REPLACE  FSP_DAYS  WITH  IN_FSPDAY 
BAD_ENTRY  =  .F. 

ELSE 

(a  23,  0 
?  CHR(7) 

(3  23,  0  SAY  'ENDING  PAY  DATE  >  NEXT  BEGINNING  PAY  DATE. 
+  '  PRESS  ANY  KEY  &  TRY  AGAIN. ' 

WAIT  '  ' 

ENDIF 

ELSE 

(§  23,  0 
?  CHR(7) 

(3  23,  0  SAY  'BEGINNING  PAY  DATE  <  PREVIOUS  ENDING  PAY  DATE 
+  '  PRESS  ANY  KEY  &  TRY  AGAIN.' 

WAIT  ' ' 

ENDIF 

ELSE 

(3  23,  0 
?  CHR(7) 

@  23,  0  SAY  'BEGINNING  PAY  DATE  >  OR  =  ENDING  PAY  DATE.'; 

+  '  PRESS  ANY  KEY  &  TRY  AGAIN. ’ 

WAIT  '  ' 

ENDIF 

ENDDO 

* 

RETURN 


DEL  REC 


iV. 

iV 


.* 

* 

* 


*  SUMMARY;  * 


The  DEL_REC  procedure  allows  the  user 

to  delete  records  from  the 

* 

Vr 

system.  The  user  is  asked  to 

confirm 

that  the  record  selected 

* 

* 

should  be  deleted.  For  Master 

records 

,  all  subordinate  Pay 

* 

* 

records  are  also  deleted. 

* 

* 

* 

*  CALLED 

PROCEDURES: 

* 

* 

Procedure 

Name 

Location 

* 

*v 

* 

DB3_ERR 

RCIS_P2.PRG 

•ft 

SET_UP 

RCIS_P2.PRG 

* 

* 

INIT_DB 

RCIS_P2.PRG 

* 

* 

RCIS_HDR 

RCIS_P2.PRG 

* 

* 

D_PROMPT 

RCIS_P2.PRG 

* 

* 

DEL_PAY 

RCIS_P2.PRG 

* 

* 

ERR_NF 

RCIS_P2.PRG 

* 

* 

M_PROMPT 

RCIS_P2.PRG 

Vf 

* 

JL 

PROCEDURE  DEL_REC 
* 

ON  ERROR  DO  DB3_ERR  WITH  ERRORO ,  MESSAGE() 

M_CHOICE  =  .T. 

FIRST_TIME  =  .T. 

*  vwvvvvvvvvwvvvvvvv  #1.  MAIN  OUTER  LOOP  vvvvvvvvvvvvvvvvvv  * 

*  Loop  until  user  chooses  to  terminate  this  delete  function  mode.  * 

DO  WHILE  (M_CHOICE) 

DO  SET_UP 

*  If  the  user  has  pressed  the  <Esc>  key,  exit  this  function  and  * 

*  return  to  the  select  function  menu.  * 


IF  rQUIT_KEY) 

EXIT 
END  IF 

(a  22,  0 

(a  23,  0 

@  23,14  SAY  'SEARCHING  DATABASE  FILES  FOR  CORRESPONDING  RECORD(S)' 

DO  INIT_DB 

*  If  the  Master  file  is  empty,  automatically  exit  this  function  and  * 

*  return  to  the  select  function  menu.  * 

IF  (EMPTY_M) 

(a  22,  0 

?  CHR(7) 

(a  23,  4  SAY  'MASTER  FILE  IS  EMPTY.  PRESS  ANY  KEY  TO  CONTINUE.' 
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WAIT  '  ' 

EXIT 
ENT)  IF 

*  If  the  Pay  file  is  empty  and  a  Pay  record  has  been  selected  for 

*  processing,  automatically  exit  this  function  and  return  to  the 

*  select  function  menu. 

IF  (R_SELECT  =  'l'  .AND.  EMPTY_P) 

(a  22,  0 

?  CHR(7) 

@  23,  7  SAY  'PAY  FILE  IS  EMPTY.  PRESS  ANY  KEY  TO  CONTINUE.' 

WAIT  '  ' 

EXIT 
ENDIF 
SELECT  1 

*  If  the  user  doesn't  enter  the  primary  key  (IN_SSAN),  use  * 

*  the  secondary  key  value  (T_FOR_STR)  which  is  composed  of  * 

*  the  cadet's  first  and/or  middle  and/or  last  name.  * 

IF  (LEN(LTRIM(IN_SSAN))  =  0) 

SET  FILTER  TO  &T_F0R_STR 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  first  record  in  the 

*  file  which  matches  the  secondary  key  value. 

GOTO  TOP 
ELSE 

SET  FILTER  TO  &FILT_STR 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  record  which  matches 

*  the  primary  key  value. 

SEEK  IN_SSAN 
ENDIF 
DO  CASE 

*  If  a  matching  Master  record  is  found,  set  up  the  screen  format 

*  and  prepare  all  files  required  to  process  the  record  display. 

CAvSE  .NOT.  EOFO 

IN_SSAN  =  SSAN 
IN_FNAM  =  F_NAME 
IN_MNAM  =  M_NAME 
IN_LNAM  =  L_NAME 
DO  CASE 

*  If  the  user  has  selected  to  process  a  Master  record, 

*  issue  the  dBASE  III  PLUS  commands  that  coordinate  the 

*  interaction  between  the  supporting  files  and  the  main 

*  file. 

CASE  R_SELECT  =  'H' 

REC_NUM  =  RECNOO 


(a  22,  0 

@  23,  0 
?  CHR(7) 

(3  23,  4  SAY  'MASTER  RECORD  FOUND.  PRESS  ANY  KEY  TO'  ; 

+  '  VIEW  RECORD. ' 

CLEAR  TYPEAHEAD 
WAIT  ' ' 

CLAS_VAL  =  AS_CLASS 

SELECT  3 
SEEK  CLAS_VAL 
IF  (.NOT.  EOFO) 

CT_REC_NUM  =  RECNOO 
CLAS_NUM  =  STR(AS_CL_TOT,3) 

ELSE 

CLAS_NUM  =  '  ?  ' 

ENDIF 

SELECT  1 
GOTO  REC_NUM 

SET  FORMAT  TO  &M_FORM_STR 
SET  SCOREBOARD  ON 
SET  ESCAPE  ON 
CLEAR  TYPEAHEAD 
SET  CONFIRM  OFF 

*  Issue  'change'  command  to  display  the  record  data.  * 


CHANGE 

SET  CONFIRM  ON 
DO  RCIS_HDR 
DO  D  PROMPT 


*  If  user  confirms  their  deletion  request,  then  * 

*  delete  the  Master  record  plus  any  associated  * 

*  Pay  records  and  readjust  the  enrollment  totals  * 


*  relation. 


IF  (P_CHOICE) 

@  23,  0 

@  23,13  SAY  'DELETING  MASTER  RECORD  AND  '; 

+  'ALL  ASSOCIATED  PAY  RECORDS.' 
GOTO  REC.NUM 
IF  (CLAS_NUM  o'  ?  ') 

CLAS_VAL  =  AS_CLASS 
SET  FILTER  TO 

COUNT  FOR  AS  CLASS  =  CLAS  VAL  TO  CLAS  TOT 


SELECT  3 
GOTO  CT_REC_NUM 

REPLACE  AS_CL_TOT  WITH  (CLAS_TOT 


SELECT  1 
GOTO  REC_NUM 
ENDIF 


i 


DELETE 

PACK 

*  If  the  Pay  file  is  not  empty,  proceed  to  delete  * 

*  all  associated  Pay  records.  * 

IF  (.NOT.  EMPTY_P) 

SELECT  2 

SET  FILTER  TO  &FILT_STR 

SEEK  IN_SSAN 

DO  WHILE  (.NOT.  EOF()) 

DELETE 

SKIP 

ENDDO 

PACK 

ENDIF 

ENDIF 

DO  RCIS_HDR 

*  If  the  user  has  selected  to  process  a  Pay  record,  * 

*  invoke  the  DEL_PAY  procedure  and  process  its  * 

*  return  response.  * 

CASE  R_SELECT  =  'l' 

DO  DEL_PAY 
IF  (M_CHOICE) 

LOOP 

ELSE 

EXIT 

ENDIF 

ENDCASE 

If  no  matching  Master  record  is  found,  give  the  user  the  option  * 
to  try  again  or  to  terminate  this  function.  * 

;e  E0F(  ) 

@  22,  0 

@  23,  4  SAY  'MASTER  ’ 

DO  ERR_NF 
IF  (M_CHOICE) 

LOOP 

ELSE 

EXIT 

ENDIF 


ENDCASE 

*  Give  the  user  the  opportunity  to  execute  this  function  again. 

DO  M_PROMPT 
ENDDO 

*  Close  the  database  files  used  in  this  function.  * 

SELECT  3 
USE 


■  ■Vi 


SELECT  2 
USE 

SELECT  1 
USE 

CLOSE  FORMAT 

* 

F_PARA  =  STUFF ( F_P ARA, 1,1,’ C') 

(a  21,  0 

ON  ERROR 

* 

RETURN 
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SUMMARY: 


The  DEL_PAY  procedure  allows  the  user  to  delete  Pay  records  from  * 
the  system.  This  procedure  is  controlled  by  the  DEL_REC  proce-  * 
dure  and  is  only  envoked  after  the  controlling  procedure  has  lo-  * 
cated  a  corresponding  Master  record.  This  procedure  allows  the  * 
user  to  view  all  Pay  records  on  the  same  screen  (16  maximum).  The* 
user  is  asked  to  enter  a  <Y>  next  to  each  record  they  want  to  * 
"mark"  for  deletion.  When  the  user  is  finished  "marking"  records* 
for  deletion,  they  must  press  the  <Enter>  key  to  process  their  * 
input.  The  system  bell  will  sound  and  all  "marked"  records  will  * 
be  deleted.  * 


CALLED  PROCEDURES; 


Procedure  Name 

Location 

* 

* 

* 

ERR_NF 

RCIS_P2.PRG 

INIT_SAV 

RCIS_P2.PRG 

* 

SAV_RECS 

RCIS_P2.PRG 

* 

INIT_FLG 

RCIS_P2.PRG 

* 

DEL_FLGS 

RCIS_P2.PRG 

* 

RCIS_HDR 

RCIS_P2.PRG 

* 

M_PROMPT 

RCIS_P2.PRG 

* 

-  *  . 

PROCEDURE  DEL_PAY 
* 

SELECT  2 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  record  which  matches  * 

*  the  primary  key  value.  * 

SET  FILTER  TO  &FILT_STR 
SEEK  IN_SSAN 
DO  CASE 

*  If  no  matching  Pay  records  are  found,  give  the  user  the  option  * 

*  to  try  again  or  to  terminate  this  function.  * 

CASE  EOF() 

(a  22,  0 

(a  23,  7  SAY  'PAY  ' 

DO  ERR_NF 

*  If  matching  Pay  records  are  found,  build  Edit  Pay  records  screen  * 

*  and  display  all  the  current  associated  Pay  records.  * 

CASE  .NOT.  EOF() 

SET  SCOREBOARD  ON 
SET  ESCAPE  ON 


RETURN 


CLEAR  TYPEAHEAD 
@  1,  0  TO  3,79  DOUBLE 

(a  2,25  SAY  'INDIVIDUAL  CADET  DATA  -  PAY  INFORMATION' 
INITIALS  =  LEFT(IN_FNAM, 1)+'  '+LEFT(IN_MNAM, 1) 


2  SAY  TRIM(LEFT(IN_LNAM, 10))+' ,  '+INITTALS 
0  SAY  '  REC  BEGINNING  ENDING 

+  'BOOK  FT  ATP  FSP  ' 

0  SAY  'DEL  if  PAY  DATE  PAY  DATE  TU 

+  'FEES  DAYS  DAYS  DAYS' 


RES  ID 


FSP 

PAY  DATE 
DAYS' 


TUITION  (I  OR  0) 


DO  INIT_SAV 
DISP_LINE  =  1 
LINE  NUM  =  6 


*  Continue  loop  until  all  associated  Pay  records  have  been  * 

*  displayed.  * 


DO  WHILE  ((.NOT.  EOF())  .AND.  (LINE_NUM  <=  22)) 
@  LINE_NUM,  5  SAY  LTRIM(STR(DISP_LINE) ) 

@  LINE_NUM,10  SAY  PAY_DATE1 
0  LINE_NUM,22  SAY  PAY_DATE2 
@  LINE_NUM,33  SAY  TUITION 
(9  LINE_NUM,45  SAY  RES_STATUS 
(3  LINE_NUM,52  SAY  BOOK_FEES 
(9  LINE_NUM,62  SAY  FT_DAYS 
(9  LINE_NUM,69  SAY  ATP_DAYS 
@  LINE_NUM,76  SAY  FSP_DAYS 
DO  SAV_RECS 

DISP.LINE  =  DISP_LINE  +  1 
LINE  NUM  =  LINE  NUM  +  1 


*  Issue  dBASE  III  PLUS  command  to  go  to  the  next  record  * 

*  that  matches  the  primary  key  value 


SKIP 
ENDDO 
(9  23,  0 

(9  23,  7  SAY  "ENTER  A  'Y'  IN  THE  DEL  FIELD  FOR  EACH  PAY  RECORD"; 

+  "  YOU  WANT  DELETED." 

DO  INIT_FLG 
DO  DEL_FI<GS 
DO  RCIS  HDR 


*  Give  the  user  the  opportunity  to  execute  this  function  again 


DO  M  PROMPT 


ENDCASE 


*  SUMMARY: 

*  The  DEIi_FTiGS  procedure  highlights  the  record  deletion  fields, 

*  processes  the  user's  deletion  requests  and  deletes  the  appro- 

*  priate  Pay  records. 


PROCEDURE  DEL_FLGS 

LINE_NUM  =  6 
IF  (SAV_REC1  >  0) 

(§  LrNE_NUM,  1  GET  FLAG_REC1  PICTURE  'Y' 
LINE_NUM  =  LINE_NUM  +  1 
END  IF 

IF  (SAV_REC2  >  0) 

§  LINE_NUM,  1  GET  FLAG_REC2  PICTURE  'Y' 
LINE_NUM  =  LINE_NUM  +  1 
END  IF 

IF  CSAV_REC3  >  0) 

(a  LINE_NUM,  1  GET  FLAG_REC3  PICTURE  'Y' 
LINE_NUM  =  LINE_NUM  +  1 
END  IF 

IF  (SAV_REC4  >  0) 

@  LINE.NUM,  1  GET  FLAG_REC4  PICTURE  'Y' 
LINE_NUM  =  LINE.NUM  +  1 
END  IF 

IF  (SAV_REC5  >  0) 

(§  LINE_NUM,  1  GET  FLAG_REC5  PICTURE  'Y' 
LINE_NUM  =  LINE_NUM  +  1 
END  IF 

IF  (SAV_REC6  >  0) 

(a  LINE_NUM,  1  GET  FLAG_REC6  PICTURE  'Y' 
LINE_NUM  =  LINE_NUM  +  1 
END  IF 

IF  (SAV_REC7  >  0) 

(3  LINE_NUM,  1  GET  FLAG_REC7  PICTURE  'Y' 
LINE_NUM  =  LINE_NUM  +  1 
END  IF 

IF  (SAV_REC8  >  0) 

(a  LINE_NUM,  1  GET  FLAG_REC8  PICTURE  'Y' 
LINE_NUM  =  LINE_NUM  +  1 
END  IF 

IF  (SAV_REC9  >  0) 

@  LINE_NUM,  1  GET  FLAG_REC9  PICTURE  'Y' 
LINE_NUM  =  LINE_NUM  +  1 
END  IF 

IF  (SAV_REC10  >  0) 

@  LINE_NUM,  1  GET  FLAG_REC10  PICTURE  'Y' 
LINE_NUM  =  LINE_NUM  +  I 
END  IF 


TF  (SAV_RRC11  >  0) 

(§  LINE_NUM,  1  GET  FLAG_REC11  PICTURE  'Y' 
LINE_NUM  =  LINE_NUM  +  1 
END  IF 

IF  (SAV_REC12  >  0) 

<§  LINE_NUM,  1  GET  FLAG_REC12  PICTURE  'Y' 
LINE_NUM  =  LINE_NUM  +  1 
END  IF 

IF  (SAV_REC13  >  0) 

@  LINE_NUM,  1  GET  FLAG_REC13  PICTURE  'Y' 
LINE_NUM  =  LINE_NUM  +  1 
END  IF 

TF  (SAV_REC14  >  0) 

@  LINE_NUM,  1  GET  FLAG_REC14  PICTURE  'Y' 
LINE_NUM  =  LINE_NUM  +  1 
END  IF 

IF  (SAV_REC15  >  0) 

<a  LINE_NUM,  1  GET  FLAG_REC15  PICTURE  'Y' 
LINE_NUM  =  LINE_NUM  +  1 
END  IF 

IF  (SAV_REC16  >  0) 

@  LINE_NUM,  1  GET  FLAG_REC16  PICTURE  'Y' 
LINE_NUM  =  LINE_NUM  +  1 
END  IF 


CLEAR  TYPEAHEAD 

*  Accept  the  user's  Pay  record  deletion  requests. 


READ 

(3  23,  0 

?  CHR(7) 

@  23,  0  SAY  "ONLY  DELETING  MARKED  ('Y')  PAY  RECORDS 

IF  (FLAG_REC1) 

GOTO  SAV_REC1 
DELETE 

END  IF 

IF  (FLAG_REC2) 

GOTO  SAV_REC2 
DELETE 

END  IF 

IF  (FLAG_REC3) 

GOTO  SAV_REC3 
DELETE 

ENDIF 

IF  (FLAG_REC4) 

GOTO  SAV_REC4 
DELETE 

ENDIF 

IF  (FLAG_REC5) 

GOTO  SAV_REC5 
DELETE 

ENDIF 


i 


I  ^1*  -Yfc  I 


‘Si! 

i 


TF  (FLAG_REC6) 
GOTO  SAV_REC6 
DELETE 
END  IF 

IF  (FLAG_REC7) 
GOTO  SAV_REC7 
DELETE 
END  IF 

IF  (FLAG_REC8) 
GOTO  SAV_REC8 
DELETE 
ENDIF 

IF  (FLAG_REC9) 
GOTO  SAV_REC9 
DELETE 
ENDIF 

IF  (FLAG.RECIO) 
GOTO  SAV_REC10 
DELETE 
ENDIF 

IF  (FLAG_REC11) 
GOTO  SAV_REC11 
DELETF, 

ENDIF 

IF  (FLAG_REC12) 
GOTO  SAV_REC12 
DELETE 
ENDIF 

IF  (FLAG_REC13) 
GOTO  SAV_REC13 
DELETE 
ENDIF 

IF  (FLAG_REC14) 
GOTO  SAV_REC14 
DELETE 
ENDIF 

IF  (FLAG_REC15) 
GOTO  SAV_REC15 
DELETE 
ENDIF 

IF  (FLAG_REC16) 
GOTO  SAV_REC16 
DELETE 
ENDIF 


RETURN 


VIEW_REC 


* 

* 


- * 

* 

SUMMARY :  * 

The  VIEW_REC  procedure  is  used  to  view  system  records.  This  * 
procedure  only  allows  the  user  to  view  the  contents  of  the  record* 
fields,  i.e.  no  updating  is  allowed.  The  system  prevents  inadver-* 
tant  deletion  of  records  by  "recalling"  all  records  marked  for  * 
deletion.  If  a  non-unique  access  key  (common  Last  Name)  has  been* 


* 

entered  the 

system 

will  advise 

you  to 

reenter  a  unique  key  for 

tV 

* 

the  desired 

record. 

* 

* 

* 

*  CALLED 

PROCEDURES: 

•ft 

* 

Procedure 

Name 

Location 

"ft 

•ft 

* 

DB3_ERR 

RCIS_P2.PRG 

* 

'it 

SET_UP 

RCIS_P2.PRG 

* 

'it 

INIT_DB 

RCIS_P2.PRG 

* 

* 

RCIS_HDR 

RCIS_P2.PRG 

* 

* 

VIEW_PAY 

RCIS_P2.PRG 

* 

"ft 

ERR_NF 

RCIS_P2.PRG 

* 

'it 

M_PROMPT 

RCIS_P2.PRG 

•ft 

'ft _ 

PROCEDURE  VIEW_REC 
* 

ON  ERROR  DO  DB3_ERR  WITH  ERROR(),  MESSAGEO 
M.CHOICE  =  .T. 

FIRST_TIME  =  .T. 

*  vvvvvvvvvvvvvvvvvvvv  #1.  MAIN  OUTER  LOOP  vvvvvvvvvvvvwvvvv  * 

*  Loop  until  user  chooses  to  terminate  this  view  function  mode.  * 

no  WHILE  (M_CHOICE) 

DO  SET  UP 


*  If  the  user  has  pressed  the  <Esc>  key,  exit  this  function  and  * 

*  return  to  the  select  function  menu.  * 


IF  (QUIT_KEY) 

EXIT 
END  IF 
@  22,  0 
(3  23,  0 

(3  23, 1A  SAY  'SEARCHING  DATABASE  FILES  FOR  CORRESPONDING  RECORDCS)' 

DO  INIT_DB 

*  If  the  Master  file  is  empty,  automatically  exit  this  function  and  * 

*  return  to  the  select  function  menu.  * 

IF  (EMPTY_M) 

@22,  0 
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?  CHR(7) 

@  23,  4  SAY  'MASTER  FILE  IS  EMPTY.  PRESS  ANY  KEY  TO  CONTINUE.' 
WAIT  '  ’ 

EXIT 
END  IF 

*  If  the  Pay  file  is  empty  and  a  Pay  record  has  been  selected  for 

*  processing,  automatically  exit  this  function  and  return  to  the 

*  select  function  menu. 

IF  (R_SELECT  =  'l'  .AND.  EMPTY_P) 

0  22,  0 

?  CHR(7) 

0  23,  7  SAY  'PAY  FILE  IS  EMPTY.  PRESS  ANY  KEY  TO  CONTINUE.' 

WAIT  '  ' 

EXIT 
END  IF 
SELECT  1 

*  If  the  user  doesn't  enter  the  primary  key  (IN_SSAN),  use  * 

*  the  secondary  key  value  (T_FOR_STR)  which  is  composed  of  * 

*  the  cadet's  first  and/or  middle  and/or  last  name.  * 

IF  (LEN(LTRIM(IN_SSAN))  =  0) 

SET  FILTER  TO  &T_F0R_STR 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  first  record  in  the 

*  file  which  matches  the  secondary  key  value. 

GOTO  TOP 
ELSE 

SET  FILTER  TO  &FILT_STR 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  record  which  matches 

*  the  primary  key  value. 

SEEK  IN_SSAN 
END  IF 
DO  CASE 

*  If  a  matching  Master  record  is  found,  set  up  the  screen  format 

*  and  prepare  all  files  required  to  process  the  record  display. 

CASE  .NOT.  E0F() 

IN_SSAN  =  SSAN 
IN_FNAM  =  F_NAME 
IN_MNAM  =  M_NAME 
IN_LNAM  =  L_NAME 
DO  CASE 

*  If  the  user  has  selected  to  process  a  Master  record, 

*  issue  the  dBASE  III  PLUS  commands  that  coordinate  the 

*  interaction  between  the  supporting  files  and  the  main 

*  file. 
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R_SELECT  =  ’H’ 

REC_NUM  =  RECNOO 
0  22,  0 
(9  23,  0 
?  CHR(7) 

@  23,  4  SAY  ’MASTER  RECORD  FOUND. 

+  ’  VIEW  RECORD.’ 
CLEAR  TYPEAHEAD 
WAIT  ” 

CLAS  VAL  =  AS  CLASS 


PRESS  ANY  KEY  TO’ 


SELECT  3 
SEEK  CLAS_VAL 
IF  (.NOT.  EOFO) 

CLAS_NUM  =  STR(AS_CL_TOT,3) 

ELSE 

CLAS_NUM  =  ’  ?  ’ 

ENDIF 

SELECT  1 
GOTO  REC_NUM 

SET  FORMAT  TO  &M_FORM_STR 
SET  SCOREBOARD  ON 
SET  ESCAPE  ON 
CLEAR  TYPEAHEAD 
SET  CONFIRM  OFF 

*  Issue  'change'  command  to  display  the  record  data,  * 
CHANGE 

SET  CONFIRM  ON 
GOTO  REC.NUM 

*  If  Master  record  was  inadvertantly  deleted,  recall  * 

*  it  back  to  a  current  status.  * 

IF  DELETEDO 

RECALL  RECORD  REC_NUM 
ENDIF 

DO  RCIS.HDR 

*  If  the  Pay  file  is  not  empty,  Invoke  the  proce-  * 

*  dures  which  will  give  the  user  the  opportunity  * 

*  to  view  any  Pay  records  associated  with  the  se-  * 

*  lected  Master  record.  * 

IF  (.NOT.  EMPTY_P) 

DO  VIEW_PAY 
IF  (VP_CHOICE) 

IF  (M_CHOICE) 

LOOP 

ELSE 

EXIT 

ENDIF 

ENDIF 


ENDIF 


* 

* 

* 


I? 


I 


*  If  the  user  has  selected  to  process  a  Pay  record, 

*  invoke  the  VIEW_PAY  procedure  and  process  its 

*  return  resjonse, 

CASE  R_SELEC"  =  'l' 

DO  VIEW.PAY 
IF  (M_(  HOICE) 

LOOP 
ELSE 
EXIT 
ENDIF 

ENDCASE 

*  If  no  matching  Master  record  is  found,  give  the  user  the  option  * 

*  to  try  again  or  to  terminate  this  function.  * 

CASE  EOF() 

@  22,  0 

@  23,  4  SAY  'MASTER  ' 

DO  ERR_NF 
IF  (M.CHOICE) 

LOOP 

ELSE 

EXIT 

ENDIF 

ENDCASE 

*  Give  the  user  the  opportunity  to  execute  this  function  again.  * 

DO  K.PROMPT 
ENDDO 

*  Close  the  database  files  used  in  this  function.  * 

SELECT  3 
USE 

SELECT  2 
USE 

SELECT  1 
USE 

CLOSE  FORMAT 

F_PARA  =  STUFF(F_PARA, 1, 1, 'C' ) 

(a  21,  0 

ON  ERROR 


I 


L 


r 


TRANS  REC 


*  SUMMARY: 


The  TRANS_REC  procedure  is  used  to  transfer  system  records  between* 
the  active  and  the  inactive  relation  files.  The  system  checks  the* 
destination  file  to  ensure  that  the  input  primary  key  doesn't  * 
already  exist  before  the  transfer  is  allowed  to  proceed.  Master  * 
records  and  all  associated  subordinate  Pay  records  will  be  trans-  * 
fered  at  the  same  time.  The  Master  record  is  automatically  dis-  * 
played  to  the  user  and  the  user  is  given  the  option  of  viewing  the* 
associated  Pay  records.  Transfer  confirmation  is  required  before  * 


* 

the  record  is 

copied.  The  system  also  checks 

to  prevent  inadver- 

* 

iV 

.u 

tant  deletion 

of  a  record. 

* 

*  CALLED 

PROCEDURES : 

* 

* 

Procedure  Name 

Location 

* 

* 

•k 

* 

DB3_ERR 

RCIS_P2.PRG 

* 

* 

SET_UP 

RCIS_P2.PRG 

* 

* 

TRANS_CHK 

RCIS_P2.PRG 

* 

* 

INIT_DB 

RCIS_P2.PRG 

* 

* 

RCIS_HDR 

RCIS_P2.PRG 

"k 

* 

VIEW_PAY 

RCIS_P2.PRG 

k 

Vf 

TQ_PROMPT 

RCIS_P2.PRG 

* 

* 

BLD_NDX 

RCIS_P2.PRG 

* 

* 

ERR_NF 

RCIS_P2.PRG 

* 

* 

M_PROMPT 

RCIS_P2.PRG 

* 

* 

* 

PROCEDURE  TRANS_REC 
* 

ON  ERROR  DO  DB3_ERR  WITH  ERRORO,  MESSAGEO 
M_CHOICE  =  .T. 

FIRST_TIME  =  .T. 

*  vvvvvvvvvvvvvvvvvvvvv  #1.  MAIN  OUTER  LOOP  vvvvvvvvvvvvvv  vvvv 

*  Loop  until  user  chooses  to  terminate  this  transff'r  function  mode. 

DO  WHILE  (M_CH0ICE) 

DO  SET_UP 

*  If  the  user  has  pressed  the  <Esc>  key,  exit  this  function  and 

*  return  to  the  select  function  menu. 

TF  (QUIT_KEY) 

EXIT 
END  IF 

(a  22,  0 

(3  23,  0 

(9  23,14  SAY  'SEARCHING  DATABASE  FILES  FOR  CORRESPONDING  RECORD(S) 
DO  TRANS  CHK 


DO  CASE 


*  If  the  input  search  key  already  exists  on  the  target  file  and  * 

*  the  user  wants  to  try  again,  loop  back  to  the  beginning  of  the  * 

*  "Do  While  (M_Choice)"  statement.  * 

CASE  T_PATH  =  2 
LOOP 

*  If  the  input  search  key  already  exists  on  the  target  file  and  * 

*  the  user  doesn't  want  to  try  again,  exit  from  the  transfer  * 

*  function  mode.  * 

CASE  T_PATH  =  3 
EXIT 

ENDCASE 
DO  INIT_DB 

*  If  the  Master  file  is  empty,  automatically  exit  this  function  and  * 

*  return  to  the  select  function  menu.  * 

IF  (EMPTY_M) 

(9  22,  0 

?  CHR(7) 

@  23,  4  SAY  'MASTER  FILE  IS  EMPTY.  PRESS  ANY  KEY  TO  CONTINUE.' 

WAIT  '  ' 

EXIT 
END  IF 
SELECT  1 

SET  FILTER  TO  &FILT_STR 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  record  which  matches  * 

*  the  primary  key  value.  * 

SEEK  IN_SSAN 
DO  CASE 

*  If  a  matching  Master  record  is  found,  set  up  the  screen  format  * 

*  and  prepare  all  files  required  to  process  the  record  display.  * 

CASE  .NOT.  EOF() 

REC_NUM  =  RECNOO 
IN.  F^:AM  =  F_^JAME 
IN_MNAM  =  M_NAME 
1N_LNAM  =  L_NAME 
(9  22,  0 
@  23,  0 
?  CHR(7) 

(9  23,  4  SAY  'MASTER  RECORD  FOUND.  PRESS  ANY  KEY  TO  VIEW  RECORD.' 
CLEAR  TYPEAHEAD 
WAIT  '  ' 

SAV_CLAS  =  AS_CLASS 

SELECT  3 
SEEK  SAV  CLAS 
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IF  (.NOT.  EOFO) 

CT_REC_NUM  =  RECNOO 
CLAS_NUM  =  STR(AS_CL_TOT,3) 

ELSE 

CLAS_NUM  =  '  ?  ' 

ENDIF 

SELECT  1 
GOTO  REC_NUM 

SET  FORMAT  TO  &M_FORM_STR 
SET  SCOREBOARD  ON 
SET  ESCAPE  ON 
CLEAR  TYPE AHEAD 
SET  CONFIRM  OFF 

*  Issue  'change'  command  to  display  the  record  data.  * 

CHANGE 

SET  CONFIRM  ON 
DO  RCIS_HDR 
GOTO  REC_NUM 
DELETE 

*  If  the  Pay  file  is  not  empty,  invoke  the  procedures  * 

*  which  will  give  the  user  the  opportunity  to  view  any  * 

*  Pay  records  associated  with  the  selected  Master  record.  * 

IF  (.NOT.  EMPTY.P) 

R_SELECT  =  '  ' 

DO  VIEW_PAY 
ENDIF 

DO  TCLPRMPT 

*  If  user  reconfirms  transfer  request,  then  prepare  all  * 

*  target  files  for  the  transfer  process.  * 

IF  (TCLCHOICE) 

@  23,  0 

(a  23,  4  SAY  'TRANSFERING  MASTER  RECORD  AND  ALL  ASSOCIATED'; 
+  '  PAY  RECORDS  TO  '  +  DEST_FILE  +  '  FILE' 


*  Close  all  source  files  while  transfer  is  being  processed.* 

SELECT  3 
USE 

SELECT  2 
USE 

SELECT  1 
USE 

SELECT  1 
USE  &T_M_FILE 

*  Prepare  main  index  file  and  build  index  list  for  target 

*  files. 


* 

* 


IF  (.NOT.  FILE(T_M_NDX_F)) 

INDEX  ON  &M_NDX_STR  TO  &T_M_NDX 
ENDIF 

DO  BLD_NDX  WITH  T_M_NDX 
SET  INDEX  TO  &NDX_LIST 
SET  FILTER  TO  &FILT_STR 

*  Transfer  Master  record  from  source  file  to  target  file. 
APPEND  FROM  &M_FILE  FOR  SSAN  =  IN_SSAN 

*  Update  target  file  support  files  (tables).  * 

IF  (CLAS_NUM  o’  ?  ') 

CLAS_VAL  =  AS_CLASS 
SET  FILTER  TO 

COUNT  FOR  AS_CLASS  =  CLAS_VAL  TO  CLAS_TOT 

SELECT  3 

USE  &T_CT_FILE 

IF  (.NOT.  FILE(T_CT_NDX_F)) 

INDEX  ON  AS_CLASS  TO  &T_CT_NDX 
ENDIF 

SET  INDEX  TO  &T_CT_NDX 
SEEK  CLAS_VAL 
IF  (.NOT.  EOFO) 

REPLACE  AS_CL_TOT  WITH  CLAS_TOT 
ENDIF 
ENDIF 

SELECT  2 
USE  &T_P_FILE 

IF  (RECNOO  =1)  .AND.  EOF()  .AND.  FILE(T_P_NDX_F) 
ERASE  &T_P_NDX_F 
ENDIF 

IF  (.NOT.  FILE(T_P_NDX_F)) 

INDEX  ON  &P_NDX_STR  TO  &T_P_NDX 
ENDIF 

SET  INDEX  TO  &T_P_NDX 
SET  FILTER  TO  &FILT_STR 

*  Transfer  all  associated  Pay  records  from  the  source  * 

*  file  to  the  target  file.  * 

APPEND  FROM  &P_FILE  FOR  SSAN  =  IN_SSAN 

*  Transfer  complete.  Close  all  target  files.  * 

SELECT  3 
USE 

SELECT  2 
USE 

SELECT  1 
USE 


END  IF 


SELECT  1 
USE  &M_FILE 
DO  BLD_NDX  WITH  M_NDX 
SET  INDEX  TO  &NDX_LIST 

*  If  transfer  was  reconfirmed,  remove  marked  Master  record  * 

*  from  the  source  file.  * 

IF  (TQ_CHOICE) 

PACK 

IF  (CLAS_NUM  <>'?') 

SET  FILTER  TO 

COUNT  FOR  AS_CLASS  =  SAV_CLAS  TO  CLAS_TOT 

SELECT  3 
USE  &CT_FILE 

IF  (.NOT.  FILE(CT_NDX_F)) 

INDEX  ON  AS_CLASS  TO  &CT_NDX 
ENDIF 

SET  INDEX  TO  &CT_NDX 
GOTO  CT_REC_NUM 

REPLACE  AS_CL_TOT  WITH  CLAS_TOT 
ENDIF 
ELSE 

GOTO  REC_NUM 

*  If  transfer  request  was  not  confirmed,  recall  the  * 

*  Master  record  back  to  current  status.  * 

IF  DELETEDO 

RECALL  RECORD  REC_NUM 
ENDIF 
ENDIF 

IF  (.NOT.  EMPTY_P) 

SELECT  2 

USE  &P_FILE 

SET  INDEX  TO  &P_NDX 

*  If  the  Pay  file  is  not  empty  and  the  transfer  request  * 

*  was  confirmed,  remove  all  associated  Pay  records  from  * 

*  the  source  file.  If  the  request  wasn't  confirmed,  * 

*  recall  all  marked  Pay  records  back  to  current  status.  * 

IF  (TQ_CHOICE) 

PACK 

ELSE 

RECALL  ALL 
ENDIF 
ENDIF 

*  Close  all  source  files  in  preparation  for  next  process.  * 


SELECT  3 


USE 

SELECT  2 
USE 

SELECT  1 
USE 

*  If  no  matching  Master  record  Is  found,  give  the  user  th_^  option  * 

*  to  try  again  or  to  terminate  this  function.  * 

CASE  EOF() 

@  22,  0 

@  23,  4  SAY  'MASTER  ’ 

DO  ERR_NF 
IF  (M_CHOICE) 

LOOP 

ELSE 

EXIT 

ENDIF 

ENDCASE 

*  Give  the  user  the  opportunity  to  execute  this  function  again.  * 

DO  M_PROMPT 
ENDDO 

*  Close  the  database  files  used  in  this  function.  * 

SELECT  3 
USE 

SELECT  2 
USE 

SELECT  1 
USE 

CLOSE  FORMAT 

* 

F_PARA  =  STUFF(F_PARA, 1, 1, 'C' ) 

(§  21,  0 

ON  ERROR 

* 

RETURN 


TRANS  CHK 


* 

* 

* 

* 


.* 

•fr 

-* 


* 


*  SUMMARY: 

* 

* 

* 

* 

* 

* 

* - 


* 

The  TRANS_CHK  is  controlled  by  the  TRANS_REC  procedure.  This  pro-* 
cedure  is  used  to  access  the  target  file  and  check  for  any  exist-* 
ing  primary  keys  which  match  the  one  input  by  the  user.  If  an  * 
existing  key  is  found,  the  user  is  advised  to  check  their  input  * 
and  try  again.  * 

* 

- * 


PROCEDURE  TRANS_CHK 
* 

T_PATH  =  1 
SELECT  1 
USE  &T_M_FILE 

*  If  the  target  Master  file  is  empty  and  the  index  file  exists,  erase  * 

*  the  index  file.  * 

IF  (RECNOO  =  1)  .AND.  EOF()  .AND.  FILE(T_M_NDX_F) 

ERASE  &T_M_NDX_F 
ELSE 

IF  (.NOT.  FILE(T_M_NDX_F)) 

INDEX  ON  &M_NDX_STR  TO  &T_M_NDX 
LNDIF 

SET  INDEX  TO  &T_M_NDX 
SET  FILTER  TO  &FILT_STR 
SEEK  IN_SSAN 

*  If  the  input  key  value  already  exists  on  the  target  file,  prompt  * 

*  the  user  to  try  again.  * 


IF  (.NOT.  EOFO) 

T_PATH  =  2 
(§  22,  0 
(3  23,  0 
?  CHR(7) 

M_CHOICE  =  .T. 

<§  23,10  SAY  'RECORD  ALREADY  EXISTS  IN  THE  TARGET  FILE.' 

@  23,53  SAY  'DO  YOU  WANT  TO  TRY  AGAIN  jY/N]?  '  GET  H_CH0ICE  PICTURE 
CLEAR  TYPEAHEAD 
READ 
(3  23,0 

IF  .NOT.  M_CHOICE 
T_PATH  =  3 


(9  21,  0 

(3  21,33  SAY  'CLOSING  FILES' 
END  IF 
END  IF 
END  IF 


'  Y' 
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HGHT  CHK 


SUMMARY : 


The  HGHT_CHK  procedure  is  used  to  ensure  that  the  HEIGHT  field  * 
data  stored  in  the  Master  record  matches  the  primary  key  field  in* 
the  height  table  relation.  This  procedure  rounds  the  user's  input* 
height  to  the  nearest  quarter  of  an  inch  because  the  height  table* 
relation  only  recognizes  quarter  inch  increments.  * 


INVOKING  PROCEDURES; 


Procedure  Name 

ADD_REC 
EDIT  REC 


Location 


RCIS_P2.PRG 
RCIS  P2.PRG 


VARIABLE  DECLARATIONS: 


Variable  Name 


HT  NUM 


Status 


LOCAL 


Purpose 


Used  to  store  the  integer  portion  of 
HEIGHT  variable. 


the  * 


HT  FRAC 


LOCAL  Used  to  store  the  fraction  portion  of  the* 

HEIGHT  variable.  * 


PROCEDURE  HGHT_CHK 
* 

HT_NUM  =  VAL(LEFT(STR((HEIGHT*100),4),2)) 

HT_FRAC  =  VAL(RIGHT(STR((HEIGHT*100),4),2))/100.00 
IF  (FT_FRAC  <>  0.00)  .AND.  (HT_FRAC  <>  0.25)  .AND.  ; 
(iii.FRAC  <>  0.50)  .AND.  (HT_FRAC  <>  0.75) 

* 

IF  (HT_FRAC  >  0.00)  .AND.  (HT_FRAC  <  0.13) 

HT_FRAC  =0.00 
ELSE 

IF  (HT_FRAC  >=  0.13)  .AND.  (HT_FRAC  <  0.38) 
HT_FRAC  =0.25 
ELSE 

IF  (HT_FRAC  >=  0.38)  .AND.  (HT_FRAC  <  0.63) 
HT_FRAC  =0.50 
ELSE 

IF  (HT_FRAC  >=  0.63)  .AND.  {HT_FRAC  <  0. 

HT_FRAC  =0.75 
ELSE 

HT_FRAC  =0.00 
HT_NUM  =  HT_NUM  +1.00 
ENDIF 
END  IF 
ENDIF 
ENDIF 


*  If  the  input  value  for  the  cadet  s  height  is  outside  the  * 

*  allowable  range,  replace  the  height  value  with  zeroes  * 

*  (this  will  cause  the  cadet's  record  to  be  flagged  on  the  * 

*  weight  standards  report  and  will  prompt  the  user  to  enter  * 

*  the  correct  value) .  * 

IF  (HT_NUM  <  58.00)  .OR.  (HT_NUM  >  83.00) 

HT_NUM  =0.00 
HT_FRAC  =0.00 
END  IF 

REPLACE  HEIGHT  WITH  (HT_NUM  +  HT_FRAC) 

ENDIF 


RETURN 


mm 

*  VIEW_PAY  * 

*  _ * 

*  * 

*  SUMMARY:  * 


The  VIEW_PAY  procedure  allows  the  user  to  view  Pay  records  already* 
on  file.  This  procedure  is  controlled  by  the  VIEW_REC  and  the  * 
TRANS_REC  procedures.  When  the  user  is  processing  a  Master  record* 


and  associated  Pay  records  exist 

,  the  user 

is  given  the  option 

to  * 

* 

view  the  Pay  records 

If  the  user  asks  to 

see  the  Pay  records 

then  this  procedure 

is  envoked . 

* 

* 

* 

* 

INVOKING  PROCEDURES: 

* 

* 

Procedure 

Name 

Locat ion 

* 

•fc 

* 

VIEW_REC 

RCIS_P2.PRG 

* 

* 

TRANS_REC 

RCIS_P2.PRG 

* 

* 

if 

* 

CALLED  PROCEDURES: 

* 

Procedure 

Name 

Location 

* 

.  ic 

* 

ERR_NF 

RCIS_P2.PRG 

* 

* 

VP_PROMPT 

RCIS_P2.PRG 

* 

* 

RCIS_HDR 

RCIS_P2.PRG 

•k 

* 

M_PROMPT 

RCIS_P2.PRG 

* 

* 

* 

PROCEDURE  VIEW.PAY 

iV 

SELECT  2 

SET  FILTER  TO  &FILT_STR 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  record  which  matches  * 

*  the  primary  key  value.  * 

SEEK  IN_SSAH 
DO  CASE 

*  If  no  matching  Pay  records  are  found,  give  the  user  the  option  * 

*  to  try  again  or  tn  terminate  this  function.  * 

CASE  EOF() 

IF  (R_SELECT  =  'l') 

(9  22,  0 

@  23,  7  SAY  'PAY  ' 

DO  ERR_NF 
ENDIF 

*  If  matcning  Pay  records  are  found,  build  Edit  Pay  records  screen 

*  and  display  all  the  current  associated  Pay  records. 


CASE  .NOT.  EOF() 

VP  CHOICE  =  .F. 


IF  ((R_SELECT  =  'H')  .OR.  (F_SELECT  =  'L')) 

DO  VP_PRMPT 
END  IF 

*  Enter  this  section  if  the  user  selected  a  Pay  record  for  * 

*  processing  or  if  their  initial  selection  was  a  Master  * 

*  record  and  they  chose  to  view  any  associated  Pay  records.  * 

IF  CVP_CHOICE)  .OR.  (R_SELECT  =  'l') 

SET  SCOREBOARD  ON 
SET  ESCAPE  ON 
CLEAR  TYPE AHEAD 
@  1,  0  TO  3,79  DOUBLE 

@  2,25  SAY  'INDIVIDUAL  CADET  DATA  -  PAY  INFORMATION* 

INITIALS  =  LEFT(IN_FNAM, 1)+’  '+LEFT( IN_MNAM, 1) 

(a  2,  2  SAY  TRIM(LEFT(IN_LNAM,10))  +  ' ,  '+INITIALS 
@  4,  0  SAY  '  REC  BEGINNING  ENDING  RESID 

+  'BOOK  FT  ATP  FSP  ' 

@  5,  0  SAY  '  it  PAY  DATE  PAY  DATE  TUITION  (I  OR  0) 

+  'FEES  DAYS  DAYS  DAYS' 

DISP_LINE  =  1 
LINE_NUM  =  6 

*  Continue  loop  until  all  associated  Pay  records  have  been  * 

*  displayed.  * 

DO  WHILE  ((.NOT.  EOF())  .AND.  (LINE_NUM  <=  22)) 

REC_NUM  =  RECNOO 

(3  LINE_NUM,  5  SAY  LTRIM(STR(DISP_LINE) ) 

@  LINE_NUM,10  SAY  PAY_DATE1 
(§  LINE_NUM,22  SAY  PAY_DATE2 
(§  LINE_NUM,33  SAY  TUITION 
(3  LINE_NUM,45  SAY  RES_STATUS 
(3  LINE_NUM,52  SAY  BOOK_FEES 
(3  LINE_NUM,62  SAY  FT_DAYS 
(3  LINE_NUM,69  SAY  ATP_DAYS 
@  LINE_NUM,76  SAY  FSP_DAYS 
DISP_LINE  =  DISP_LINE  +  1 
LINE_NUM  =  LINE_NUM  +  1 

*  If  the  transfer  function  was  selected,  delete  all  * 

*  associated  Pay  records  after  their  contents  has  * 

*  been  displayed.  * 

IF  (F_SELECT  =  'L' ) 

GOTO  REC_NUM 
DELETE 
ENDIF 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  next  Pay  * 

*  record  which  matches  the  input  key  value.  * 

SKIP 

ENDDO 

@  23,  0  SAY  'PRESS  ANY  KEY  TO  RETURN  TO  MAIN  SELECTION  SCREEN* 


WAIT  ' ' 

DO  RCIS_HDR 
IF  (F_SELECT  =  'j') 

*  Give  the  user  the  opportunity  to  execute  this  function  * 

*  again.  * 

DO  M_PROMPT 
END  IF 
ELSE 

*  If  the  transfer  function  was  selected,  delete  all  * 

*  associated  Pay  records  without  displaying  their  * 

*  contents.  * 

IF  (F_SELECT  =  'L') 

DO  WHILE  (.NOT.  EOF()) 

DELETE 
SKIP 
ENDDO 
ENDIF 
END  IF 


ENDCASE 


RETURN 


*  SUMMARY:  * 

*  The  SET_UP  procedure  is  used  to  set  up  the  string  variables  used  * 

*  to  identify  the  different  source  and  destination  database  files  * 

*  (both  data  and  index  files).  All  procedures  in  this  file  use  * 

*  these  strings  (GLOBAL)  as  opposed  to  building  their  own.  * 

*  * 


*  INVOKING  PROCEDURES: 

* 
if 
* 

* 


* 

* 

* 


* 

*  CALLED  PROCEDURES: 

* 

* 

* 

* 


Procedure  Name 

Location 

* 

JU 

ADD_REC 

RCIS_P2.PRG 

* 

EDIT_REC 

RCIS_P2.PRG 

VIEW_REC 

RCIS_P2.PRG 

-k 

DEL_REC 

RCIS_P2.PRG 

-k 

TRANS_REC 

RCIS_P2.PRG 

* 

* 

•k 

Procedure  Name 

Location 

"k 

•k 

INPUT_KEY 

RCIS_P2.PRG 

* 

* 

*  VARIABLE  DECLARATIONS;  * 

*  * 


k 

•k 

Variable  Name 

Status 

k 

k 

S.PREFIX 

LOCAL 

k 

k 

k 

T.PREFIX 

LOCAL 

k 

Purpose  * 

- * 

Used  to  store  a  one  letter  identifier  for* 
the  source  files.  * 

* 

Used  to  store  a  one  letter  identifier  for* 
the  target  files.  * 

* 


* 


* 


PROCEDURE  SET_UP 
* 

PRIVATE  S_PREFIX 
PRIVATE  T  PREFIX 


*  Initialize  global  boolean  variables  used  in  other  procedures.  * 

QUIT_KEY  =  .F. 

EMPTY_M  =  . F . 

EMPTY_P  =  . F . 

DEL_FLAG  =  .F. 


*  All  these  database  file  string  variables  only  need  to  be  built  once  * 

*  for  each  mode.  * 


IF  (FIRST_TIME) 

M  FILE  =  'X  CDT  MS' 


P_FILE  =  'X_CDT_PY' 

CT_FILE  =  'X_CDT_CT' 

*  Initialize  source  and  target  file  designaters.  * 

IF  (G_SELECT  =  'H') 

S_PREFIX  =  'A' 

T_PREFIX  =  '!' 

DEST_FILE  =  'INACTIVE' 

ELSE 

S_PREFIX  =  'I' 

T_PREFIX  =  'A' 

DEST_FILE  =  'ACTIVE' 

ENDIF 

M_FILE  =  STUFF(M_FILE,1,1,LTRIM(S_PREFIX)) 

P_FILE  =  STUFF(P_FILE,1,1,LTRIM(S_PREFIX)) 

CT_FILE  =  STUFF(CT_FILE,1,1,I<TRIM(S_PREFIX)) 

M_NDX  =  'X_SSAN' 

P_NDX  =  'X_PAYD' 

CT_NDX  =  ' X_ASCL' 

M_NDX_STR  =  'SSAN' 

P_NDX_STR  =  ' S  S AN+STR ( YE AR ( PAY_DATE 1 ) , 4 ) +STR ( MONTH ( PAY_DATE 1 ) , 2 ) ' ; 

+  '+STR(DAY(PAY_DATE1),2)’ 

FILT_STR  =  'SSAN  =  IN_SSAN' 

IF  (F_SELECT  >=  'j') 

M_FORM_STR  =  'CDT_M_VU' 

ELSE 

M_FORM_STR  =  'CDT_M' 

ENDIF 

IF  (F.SELECT  =  'L' ) 

T_M_FILE  =  STUFF(M_FILE,1,1,LTRIM(T_PREFIX)) 

T_P_FILE  =  STUFF(P_FILE,1,1,LTRIM(T_PREFIX)) 

T_CT_FILE  =  STUFF(CT_FILE,1,1,LTRIM(T_PREFIX)) 

T_M_NDX  =  STUFF(M_NDX,1,1,LTRIM(T_PREFIX)) 

T_P_NDX  =  STUFF(P_NDX,1,1,LTRIM(T_PREFIX)) 

T_CT_NDX  =  STUFF(CT_NDX,l,l,LTRIM(T_rREFTX)) 

T_M_NDX_F  =  T_M_NDX  +  '.NDX' 

T_P_NDX_F  =  T_P_NDX  +  ' .NDX' 

T_CT_NDX_F  =  T_CT_NDX  +  '.NDX' 

ENDIF 

M_NDX  =  STUFF(M_NDX,1,1,LTRIM(S_PREFIX)) 

P_NDX  =  STUFF(P_NDX, 1, 1,LTRIM(S_PREFIX)) 

CT_NDX  =  STUFF(CT_NDX,1,1,LTRIM(S_PREFIX)) 

M_NDX_F  =  M_NDX  +  '.NDX' 

P_NDX_F  =  P_NDX  +  '.NDX' 

CT_NDX_F  =  CT_NDX  +  '.NDX' 

ENDIF 

DO  INPUT_KEY 

* 

RETURN 
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* 

* 

* 


INPLrr_KEY 


* 

* 


* 


*  * 

*  SUMMARY:  * 


The  INPUT_KEY  procedure  displays  the  prompts  required  for  access  * 
keys  and  accepts  the  user's  input.  If  a  null  value  is  returned,  * 
either  by  pressing  the  <Enter>  key  without  previously  entering  * 
data  or  by  pressing  the  <Esc>  key,  the  QUIT_KEY  flag  is  set  to  * 
TRUE.  This  serves  as  an  escape  mechanism  if  the  user  had  Inadver-* 
tantly  selected  an  incorrect  mode.  * 


*  * 

*  CALLED  PROCEDURES:  * 

*  Procedure  Name  Location  * 

*  -  -  * 

*  SSAN_CHK  RCIS_P2.PRG  * 

*  * 

'A'.. - -  —  .... - - - - - - - -  —  - 


PROCEDURE  INPUT_KEY 
* 

DONE  =  .F. 

IN_FNAM  =  ' 

IN_MNAM  =  '  ' 

IN_LNAM  =  '  ' 

IN_SSAN  =  '  ' 

(a  Is,  0  CLEAR  TO  24,79 
@  18,11  SAY  'SSAN' 

*  If  the  selected  function  is  not  Add  or  Transfer,  display  the  * 

*  secondary  key  value.  * 

IF  (F_SELECT  <>  'H')  .AND.  (F.SELECT  <>  'L') 

(3  19,  5  SAY  'First  Name’ 

@  20,  4  SAY  'Middle  Name' 

(3  21,  6  SAY  'Last  Name' 

@  22,36  SAY  ’  OR  Name.' 

END  IF 

@  22,  4  SAY  "Enter  Cadet's  Social  Security 

*  Continue  loop  until  the  user  enters  a  valid  response  or  until  they  * 

*  enter  an  exit  sequence.  * 

DO  WHILE  (.NOT.  DONE) 

@  18,16  GET  IN_SSAN  PICTURE  '(SR  999-99-9999' 

*  If  the  selected  function  is  not  Add  or  Transfer,  allow  the  * 

*  user  to  specify  a  secondary  key  value  for  the  search.  * 

IF  (F_SELECT  <>  'H')  .AND.  (F_SELECT  <>  'L') 

(3  19,16  GET  IN_FNAM  PICTURE  '!!!!!!!!!!!!!!!' 

(3  20,16  GET  IN_MNAM  PICTURE  '!!!!!!!!!!!!!!!' 

@  21,16  GET  IN_LNAM  PICTURE  '!!!!!!!!!!!!!!!' 

ENDIF 


Accept  user's  input  key  values.  * 


* 

READ 

CLEAR  TYPEAHEAD 
DONE  =  .T. 

*  If  the  user  doesn't  enter  a  value  for  the  primary  key,  build  the  * 

*  filter  string  variable  from  the  secondary  key  value  inputs.  * 

IF  (LEN(LTRIM(IN_SSAN))  =  0) 

IF  (F_SEL£CT  <>  'H')  .AND.  (F_SELECT  <>  'L') 

T_F0R_STR  =  ' ' 

IF  (LEN(LTRIM(IN_FNAM))  >  0) 

T_F0R_STR  =  'F_NAME  ='  +  +  IN_FNAM  + 

END  IF 

IF  (LEN(LTRIM(IN_MNAM))  >  0) 

IF  (LEN(T_F0R_STR)  >  0) 

T_F0R_STR  =  T_F0R_STR  +  '.AND.M_NAME  ='  +  +  IN_MNAM  + 

ELSE 

T_F0R_STR  =  'M_NAME  +  IN_MNAM  + 

ENDIF 

ENDIF 

IF  (LENCLTRIM(IN_LNAM))  >  0) 

IF  (LEN(T_F0R_STR)  >  0) 

T_F0R_STR  =  T_F0R_STR  +  ’.AND.L_NAME  ='  +  +  IN_LNAM  + 

ELSE 

T_F0R_STR  =  'L_NAME  ='  +  +  IN_LNAM  + 

ENDIF 

ENDIF 

*  If  the  secondary  key  value  is  being  used,  check  the  file  for 

*  duplicate  records  associated  with  that  input  value. 

IF  (LEN(T_F0R_STR)  >  0) 

SELECT  1 
USE  &M_FILE 

COUNT  FOR  &T_F0R_STR  TO  REC_CNT 
IF  (REC_CNT  >  1) 

(3  22,  0 
(9  23,  0 
?  CHR(7) 

@  23,  0  SAY  'NAME  ASSIGNED  TO  MORE  THAN  ONE  RECORD  (ENTER' 
+  '  SSAN).  PRESS  ANY  KEY  &  TRY  AGAIN.' 

WAIT  '  ' 

DONE  =  .F. 

LOOP 

ENDIF 

ELSE 

QUIT_KEY  =  .T. 

ENDIF 

ELSE 

QUIT_KEY  =  .T. 

ENDIF 


DO  SSAN  CHK  WITH  IN  SSAN 


*  If  the  primary  key  value  is  not  syntactically  correct,  prompt 


the  user  to  try  again 


IF  (BAD_SSAN) 

(a  23,  0 
?  CHR(7) 

@  23,  0  SAY  'SSAN  FIELD  MUST  HAVE  NINE  (9)  DIGITS. 
+'  AND  TRY  AGAIN. ' 

WAIT  ' ' 

@  23,  0 
DONE  =  .F. 

LOOP 
ENDIF 
END  IF 
ENDDO 

IF  (QUIT_KEY) 

@  18,  0  CLEAR  TO  24,79 
@  21,33  SAY  'CLOSING  FILES' 

(a  24,  0 
ENDIF 

* 

RETURN 


PRESS  ANY  KEY 


SSAN  CHK 


h 


*. 

* 

iV. 

* 

* 

* 

* 


Tf 

* 

* 

k 

k 

k 

k 

k 

siv; 

k 

k 

SUMMARY: 


The  SSAN_CHK  procedure  checks  each  character  of  the  primary  key 
input  for  spaces.  If  a  space  is  found,  a  flag  is  set  and  the 
controlling  procedure  (INPUT_KEY)  reads  the  flag  and  tells  the 
user  to  try  again. 


VARIABLE  DECLARATIONS: 


Variable  Name 


Status 


Purpose 


CHK  POS 


LOCAL 


* 

~'k 


’k 
k 
k 
k 
k 
k 
k 
k 
k 
k 

- - -  —  -  -  k 

Used  as  an  incremental  counter  to  test  * 
each  character  of  the  primary  key  (SSAN).* 


* 

* 

* 

r- 

* 

t:.’ 

* 

* 

* 

* 

SUMMARY : 


The  INIT_DB  procedure  sets  up  the  dBASE  IT  I  PLUS  work  area 
environments  for  all  the  required  relations,  i.e.  specifies  work 
area  IDs,  opens  data  files,  specifies  index  files  and  erases  & 
rebuilds  indexes  as  required. 


INVOKING  PROCEDURES: 


Procedure  Name 


Location 


ADD_REC 
EDIT_REC 
VIEW_REC 
DEL_REC 
TRANS  REC 


RCIS_P2.PRG 
RCIS_P2.PRG 
RCIS_P2.PRG 
RCIS_P2.PRG 
RCIS  P2.PRG 


VARIABLE  DECLARATIONS: 


Variable  Name 


Status 


Purpose 


CHK  POS 


PARAMETER 


Used  as  an  Incremental  counter  to  test 
each  character  of  the  primary  key  (SSAN), 


PROCEDURE  INIT  DB 


*  Initailize  the  Master  file  and  all  its  associated  index  files. 


SELECT  1 
USE  &M_FILE 

IF  (RECNOO  =  1  .AND.  EOF()) 
EMPTY_M  =  .T. 

IF  FILE(M_NDX_F) 

ERASE  &M_NDX_F 
ENDIF 
ELSE 

IF  .NOT.  FILE(M_NDX_F) 

INDEX  ON  &M_NDX_STR  TO  &M_NDX 
ENDIF 

IF  (FIRST_TIME) 

DO  BLD_NDX  WITH  M_NDX 
FIRST_TIME  =  .F. 

ENDIF 

SET  INDEX  TO  &NDX_LIST 
ENDIF 


Initailize  the  Pay  file  and  its  associated  index  file.  * 


SELECT  2 
USE  SP  FILE 


IF  (RECNOO  =  1  .AND.  E0F()) 

EMPTY_P  =  .T. 

IF  FILE(P_NDX_F) 

ERASE  &P_NDX_F 
ENDIF 
ELSE 

IF  .NOT.  FILE(P_NDX_F) 

INDEX  ON  &P_NDX_STR  TO  &P_NDX 
ENDIF 

SET  INDEX  TO  &P_NDX 
ENDIF 

*  Initailize  the  Enrollment  totals  support  file  and  its  associated  * 

*  index  files.  * 

SELECT  3 

USE  &CT_FILE 

IF  .NOT.  FILE(CT_NDX_F) 

INDEX  ON  AS_CLASS  TO  &CT_NDX 
ENDIF 

SET  INDEX  TO  &CT_NDX 

* 

RETUFN 


1 


SUMMARY: 


The  BLn_NDX  procedure  checks  for  the  existence  of  all  the  index  * 
files  used  to  process  the  queries.  It  builds  a  string  of  the  * 
existing  file  names  to  be  used  whenever  the  files  are  updated.  * 
These  index  files  must  be  updated  whenever  the  database  files  are* 
changed.  If  not,  the  queries  will  not  be  able  to  locate  the  * 
current  information  stored  on  the  database  files.  * 


INVOKING  PROCEDURES: 


Procedure  Name 


Location 


ADD_REC 
TRANS_REC 
INIT  DP 


RCIS_P2.PRG 
RCIS_P2.PRG 
RCIS  P2.PRG 


VARIABLE  DECLARATIONS: 


Variable  Name 


Status 


Purpose 


MAS  NDX 


PARAMETER 


String  variable  which  contains  the  current¬ 
primary  key  index  for  the  Master  file.  * 


_NDX 
.NDX_F 
_NDX 
_NDX_F 
_NDX 
.NDX_F 
_NDX 
.NDX_F 
_NDX 
_NDX_F 
_NDX 
NDX  F 


LOCAL 


String  variables  for  index  file  names. 


PREFIX 


LOCAL 


Used  to  store  a  one  letter  identifier  for  * 
the  source  files.  * 

* 


PROCEDURE  BLD  NDX 


PARAMETER  MAS  NDX 


PRIVATE  WPSS_NDX 
PRIVATE  SCHA_NDX 
PRIVATE  CLAS_NDX 
PRIVATE  DCFY_NDX 
PRIVATE  CGDT_NDX 
PRIVATE  SEDT  NDX 


PRIVATE  WPSS_NDX_F 
PRIVATE  SCHA_NDX_F 
PRIVATE  CLAS_NDX_F 
PRIVATE  DCFY_NDX_F 
PRIVATE  CGDT_NDX_F 
PRIVATE  SEDT_NDX_F 
PRIVATE  PREFIX 

WPSS_NDX  =  'X_WPSS' 

SCHA_NDX  =  'X_SCHA' 

CLAS_NDX  =  'X_GLAS’ 

DCFY_NDX  =  'X_DCFY' 

CGDT_NDX  =  'X_CGDT' 

SEDT_NDX  =  'X_SEDT' 

PREFIX  =  SUBSTR(MAS_NDX, 1, 1) 

WPSS_NDX  =  STUFF(WPSS_NDX, 1, 1,LTRIM(PREFIX)) 
SCHA_NDX  =  STUFF(SCHA_NDX, 1, 1,LTRIM( PREFIX)) 
CLAS_NDX  =  STUFF(CLAS_NDX,1,1,LTRIM(PREF1X)) 
DCFY_NDX  =  STUFF(DCFY_NDX, 1, 1,LTRIM(PREFIX)) 
CGDT_NDX  =  STUFF(CGDT_NDX,1,1,LTRIM(PREFIX)) 
SEDT_NDX  =  STUFF(SEDT_NDX,1,1,LTRIM( PREFIX)) 
WPSS_NDX_F  =  WPSS_NDX  +  '.NDX' 

SCHA_NDX_F  =  SCHA_NDX  +  '.NDX' 

CLAS_NDX_F  =  CLAS_NDX  +  ' .NDX' 

DCFY_NDX_F  =  DCFY_NDX  +  '.NDX* 

CGDT_NDX_F  =  CGDT_NDX  +  ' .NDX' 

SEDT_NroX_F  =  SEDT_NDX  +  '.NDX' 

NDX.LIST  =  MAS_NDX 
IF  FILE(WPSS_NDX_F) 

NDX.LIST  =  NDX_LIST  +  +  WPSS.NDX 

ENDIF 

IF  FILE(SCHA_NDX_F) 

NDX_LIST  =  NDX_LIST  +  ' , '  +  SCHA_NDX 
ENDIF 

IF  FILE(CLAS_NDX_F) 

NDX_LIST  =  NDX_LIST  +  +  CLAS_NDX 

ENDIF 

IF  FILE(DCFY_NDX_F) 

NDX_LIST  =  NDX_LIST  +  +  DCFY_NDX 

ENDIF 

IF  FILE(CGDT_NDX_F) 

NDX_LIST  =  NDX_LIST  +  +  CGDT_NDX 

ENDIF 

IF  FILE(SEDT_NDX_F) 

NDX_LIST  =  NDX_LIST  +  +  SEDT_NDX 

ENDIF 


RETURN 


INIT  SAV 


*  SUMMARY; 


The  INIT_SAV  procedure  simply  initializes  the  SAV_REC  variables 
which  are  used  in  the  updating  and  deleting  processes  for  PAY 
records . 


*  INVOKING  PROCEDURES: 


Procedure  Name 

EDIT_PAY 
DEL  PAY 


Location 


RCIS_P2.PRG 
RCIS  P2.PRG 


PROCEDURE  INIT_SAV 
* 

SAV_REC1  =  0 
SAV_REC2  =  0 
SAV_REC3  =  0 
SAV_REC4  =  0 
SAV_REC5  =  0 
SAV_REC6  =  0 
SAV_REC7  =  0 
SAV_REC8  =  0 
SAV_REC9  =  0 
SAV_REC10  =  0 
SAV_REC11  =  0 
SAV_REC12  =  0 
SAV_REC13  =  0 
SAV_REC14  =  0 
SAV_REC15  =  0 
SAV_REC16  =  0 

Vf 

RETURN 


* 

* 


INIT  FLG 


* 

* 


*  SUMMARY: 


The  INIT_FLG  procedure  simply  initializes  the  FLAG_REC  variables 
which  are  used  in  the  deleting  processes  for  PAY  records. 


PROCEDURE  INIT. 
* 

.FLG 

FLAG_REC1 

= 

F. 

FLAG_REC2 

= 

F. 

FLAG_REC3 

= 

F. 

FLAG_REC4 

= 

F. 

FLAG_REC5 

= 

F. 

FLAG_REC6 

= 

F. 

FLAG_REC7 

= 

F. 

FLAG_REC8 

= 

F. 

FLAG_REC9 

= 

F. 

FLAG_REC10 

= 

F. 

FLAG_REC11 

= 

F. 

FLAG_REC12 

= 

F. 

FLAG_REC13 

F. 

FLAG_REC14 

= 

F. 

FLAG_REC15 

F. 

FLAG_REC16 

* 

RETURN 

F. 

SAV  RECS 


* 


* 


*  * 

*  SUMMARY:  * 

*  The  SAV_RECS  procedure  is  used  in  coordination  with  the  procedures* 

*  dures  that  process  all  Pay  records  on  the  same  screen! 16  maximum).* 

*  It  saves  the  database  record  numbers  which  correspond  to  the  line  * 

*  they  are  displayed  on  so  that  the  system  knows  which  screen  line  * 

*  to  use  in  displaying  the  appropriate  records.  * 

*  * 


*  INVOKING  PROCEDURES: 

* 

* 

* 

* 

* 


Procedure  Name 


EDIT_PAY 
DEL  PAY 


* 

Location  * 


RCIS_P2.PRG  * 

RCIS_P2.PRG  * 

* 


PROCEDURE  SAV  RECS 


DO  CASE 
CASE 

DISP_LINE  =  1 

CASE 

SAV_REC1  =  RECNOO 
DISP_LINE  =  2 

CASE 

SAV_REC2  =  RECNOO 
DISP_LINE  =  3 

CASE 

SAV_REC3  =  RECNOO 
DISP_LINE  =  4 

CASE 

SAV_REC4  =  RECNOO 
DISP.LINE  =  5 

CASE 

SAV_REC5  =  RECNOO 
DISP_LINE  =  6 

CASE 

SAV_REC6  =  RECNOO 
DISP_LINE  =  7 

CASE 

SAV_REC7  =  RECNOO 
DISP_LINE  =  8 

CASE 

SAV_REC8  =  RECNOO 
DISP_LINE  =  9 

CASE 

SAV_REC9  =  RECNOO 
DISP_LINE  =  10 

CASE 

SAV_REC10  =  RECNOO 
DISP_LINE  =  11 

CASE 

SAV_REC11  =  RECNOO 
DISP_LINE  =  12 

CASE 

SAV_REC12  =  RECNOO 
DISP_LINE  =  13 

CASE 

SAV_REC13  =  RECNOO 
DISP_LINE  =  14 

CASE 

SAV_REC14  =  RECNOO 
DISP_LINE  =  15 

CASE 

SAV_REC15  =  RECNOO 
DISP_LINE  =  16 

SAV_REC16  =  RECNOO 
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*  SUMMARY: 


The  RCIS_HDR  procedure  redisplays  the  selected  mode  by  repainting* 


*  the  pop-up  menus. 

* 

* 

* 

*  INVOKING  PROCEDURES: 

* 

* 

Procedure  Name 

Location 

* 

* 

ADD_REC 

RCIS_P2.PRG 

* 

* 

ADD_PAY 

RCIS_P2.PRG 

k 

* 

EDIT.REC 

RCIS_P2.PRG 

* 

* 

EDIT_PAY 

RCIS_P2.PRG 

* 

*V 

DEL_REC 

RCIS_P2.PRG 

* 

* 

DEL_PAY 

RCIS_P2.PRG 

* 

k 

VIEW_REC 

RCIS_P2.PRG 

* 

k 

VIEW_PAY 

RCIS_P2.PRG 

k 

k 

TRANS_REC 

RCIS_P2.PRG 

k 

k 

k 

PROCEDURE  RCIS_HDR 
* 

SET  ESCAPE  OFF 
SET  SCOREBOARD  OFF 
SET  FILTER  TO 
SET  FORMAT  TO 
CLEAR  GETS 
@  1,  0  TO  3,79 

@2,22  SAY  'ROTC  CADET  INFORMATION  SYSTEM  (RCIS) 
CALL  MENU  WITH  F_PARA 
CALL  MENU  WITH  G_PARA 
IF  (F.SELECT  =  'M') 

CALL  MENU  WITH  QS_PARA 
CALL  MENU  WITH  QO_PARA 
ELSE 

IF  (F_SELECT  <>  'L') 

CALL  MENU  WITH  R_PARA 
ENDIF 
END  IF 
@  24,  0 

■)V 

RETURN 


ERR  RE 


SUMMARY: 


The  ERR_RE  procedure  displays  an  error  message  informing  the  user 
that  a  record  with  the  requested  key  value  already  exists  and 
then  accepts  a  continuation  option. 


INVOKING  PROCEDURES: 


Procedure  Name 


ADD  REC 


Location 


RCIS  P2.PRG 


PROCEDURE  ERR_RE 
* 

?  CHR(7) 

M_CHOICE  =  .T. 

(3  18,  0  CLEAR  TO  24,79 
(3  18,11  SAY  'SSAN' 

(3  18,16  SAY  IN_SSAN  PICTURE  ’@R  999-99-9999' 

*  If  the  selected  function  is  not  Add  or  Transfer,  display  the  * 

*  secondary  key  values  for  the  selected  record.  * 

IF  (F.SELECT  <>  'H')  .AND.  (F_SELECT  <>  'L') 

(3  19,  5  SAY  'First  Name' 

@  20,  4  SAY  'Middle  Name' 

@  21,  6  SAY  'Last  Name' 

(§  19,16  SAY  IN.FNAM  PICTURE  '!!!!!!!!!!!!!!!' 

(3  20, 16  SAY  IN_MNAM  PICTURE  '!!*!!!»!!!!!!!!' 

(3  21,16  SAY  IN_LNAM  PICTURE  '!!!!!!!!!!!!!!!' 

END  IF 

23,10  SAY  'RECORD  ALREADY  EXISTS.  DO  YOU  WANT  TO  TRY  AGAIN  [Y/N]? 
GET  M_CH0ICE  PICTURE  'Y' 

CLEAR  TYPEAHEAD 
READ 

(3  18,  0  CLEAR  TO  24,79 
IF  .NOT.  M_CH0ICE 

(3  21,33  SAY  'CLOSING  FILES' 

END  IF 

* 

RETURN 


* 

* 


ERR  NF 


*  SUMMARY: 


* 


* 


* 


* 

The  ERR_NF  procedure  displays  an  error  message  informing  the  user* 
that  a  record  with  the  requested  key  value  doesn't  exist  and  then* 
accepts  a  continuation  option.  * 

* 


*  INVOKING  PROCEDURES: 

* 

* 


Procedure  Name 


Location  * 

-  * 


•u 

* 

* 


* 


* 

'.V 

* 


* 


ADD_REC 

RCIS_P2.PRG 

* 

EDIT.REC 

RCIS_P2.PRG 

* 

EDIT_PAY 

RCIS_P2.PRG 

"ft 

DEL_REC 

RCIS_P2.PRG 

* 

DEL_PAY 

RCIS_P2.PRG 

* 

VIEW_REC 

RCIS_P2.PRG 

* 

VIEW.PAY 

RCIS_P2.PRG 

* 

TRANS_REC 

RCIS_P2.PRG 

* 

* 


* 


PROCEDURE  ERR_NF 
* 

?  CHR(7) 

M_CHOICE  =  .T. 

(9  18,  0  CLEAR  TO  22,79 
(9  18,11  SAY  'SSAN' 

@  18,16  SAY  IN_SSAN  PICTURE  '(9R  999-99-9999' 

*  If  the  selected  function  is  not  Add  or  Transfer,  display  the  * 

*  secondary  key  values  for  the  selected  record.  * 

IF  (F_SELECT  <>  'H')  .AND.  (F_SELECT  <>  'L') 

@  19,  5  SAY  'First  Name' 

@  20,  4  SAY  'Middle  Name' 

@21,  6  SAY  'Last  Name' 

@  19,16  SAY  IN_FNAM  PICTURE  '!!!!!!!!!!!!!!!' 

@  20,16  SAY  IN_MNAM  PICTURE  '!!!!!!!!!!!!!!!' 

@  21,16  SAY  IN_LNAM  PICTURE  '!!!!!!!!»!!!!!!' 

END  IF 

@  23,11  CLEAR  TO  23,79 

@  23,11  SAY  'RECORD  NOT  FOUND.  DO  YOU  WANT  TO  TRY  AGAIN  [Y/N]? 

GET  M_CH0ICE  PICTURE  'Y' 

CLEAR  TYPEAHEAD 
READ 

@  18,  0  CLEAR  TO  24,79 
IF  .NOT.  M_CH0ICE 

@  21,33  SAY  'CLOSING  FILES' 

END  IF 

* 

RETURN 


P  PROMPT 


* - * 

*  * 

*  SUMMARY:  * 

*  The  P_PROMPT  procedure  displays  a  message  asking  the  user  if  they* 

*  would  like  to  add  additional  Pay  records  associated  with  the  * 

*  current  Master  record.  * 

*  * 

* _ * 


PROCEDURE  P_PROMPT 
* 


Display  the  primary  and  secondary  key  values  for  the  selected  record.  * 


@  18,  0  CLEAR  TO  24,79 
@  18,11  SAY  'SSAN' 

(?  18,16  SAY  IN_SSAN  PICTURE  '@R  999-99-9999' 
@  19,  5  SAY  'First  Name' 

@  19,16  SAY  IN_FNAM  PICTURE  ’  !  !  !  ii  !  !  M  !  M  !  !  !  ' 
@  20,  4  SAY  'Middle  Name' 

(§  20,16  SAY  IN_MNAM  PICTURE  '!!  f !!!!!!!!!!  t  !  ' 
(a  21,  6  SAY  'Last  Name' 


(3  21,16  SAY  IN_LNAM  PICTURE  '!!!!!!!!!!!!!!!' 

P_CH0ICE  =  .T. 

@  23,  4  SAY  'WOULD  YOU  LIKE  TO  ADD  AN  ADDITIONAL  PAY  RECORD' 

(§  23,51  SAY  'FOR  THIS  CADET  [Y/N]?  '  GET  P_CH0ICE  PICTURE  'Y' 

CLEAR  TYPEAHEAD 

READ 

IF  .NOT.  P.CHOICE 

@  18,  0  CLEAR  TO  24,79 
@  21,33  SAY  'CLOSING  FILES' 

ENDIF 


RETURN 
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A 


M  PROMPT 


SUMMARY: 


The  M_PROMPT  procedure  displays  a  continuation  message  and 
accepts  the  user  option. 


INVOKING  PROCEDURES: 


Procedure  Name 

ADD_REC 

EDIT_REC 

EDIT_PAY 

DEL_REC 

DEL_PAY 

VIEW_REC 

TRANS  REG 


Location 


RCIS_P2.PRG 
RCIS_P2.PRG 
RCIS_P2.PRG 
RCIS_P2.PRG 
RCIS_P2.PRG 
RCIS_P2.PRG 
RCIS  P2.PRG 


*^•1 


au 


L 

I 


I 


D_PROMPT 

SUMMARY; 

The  D_PROMPT  procedure  displays  a  message 

requesting  confirmation 

for  record  deletion.  TTie  user  response  is 

accepted. 

INVOKING 

PROCEDURES : 

Procedure  Name 

Location 

ADD_REC 

RCIS_P2.PRG 

DEL_REC 

RCIS_P2.PRG 

PROCEDURE  D_PROMPT 
* 

*  Display  the  primary  and  secondary  key  values  for  the  selected  record. 

@  18,  0  CLEAR  TO  24,79 
@  18,11  SAY  'SSAN' 

@  18,16  SAY  IN_SSAN  PICTURE  '{aR  999-99-9999' 

@  19,  5  SAY  'First  Name' 

@  19,16  SAY  IN_FNAM  PICTURE  '!!!!!!!!!!!!!!!' 

(a  20,  4  SAY  'Middle  Name' 

@  20,16  SAY  IN_MNAM  PICTURE  'll!!!!!!!!!!!!!' 

@21,  6  SAY  'Last  Name' 

(a  21,16  SAY  IN_LNAM  PICTURE  'll!!!!!!!!!!!!!' 

P_CH0ICE  =  .F. 

@  23,20  SAY  'DO  YOU  WANT  TO  DELETE  THIS  RECORD  [Y/N]?  '; 

GET  P_CHOICE  PICTURE  'Y' 

CLEAR  TYPEAHEAD 
READ 

* 

RETURN 


*  TQ_PRMPT  * 

tV - * 

*  * 

*  SUMMARY :  * 

The  TQ_PRMPT  procedure  displays  a  message  requesting  confirmation* 

*  for  record  transfer.  The  user  response  is  accepted.  * 

*  * 


* 


* 


PROCEDURE  TQ_PRMPT 
* 


*  Display  the  primary  and  secondary  key  values  for  the  selected  record.  * 


(9  18,  0  CLEAR  TO  24,79 
@  18,11  SAY  'SSAN' 

(9  18,16  SAY  IN_SSAN  PICTURE  '@R  999-99-9999' 

@  19,  5  SAY  'First  Name' 

@  19,16  SAY  IN_FNAM  PICTURE  '!!!!!!!!!!!!!!!' 

(9  20,  4  SAY  'Middle  Name' 

@  20,16  SAY  IN_MNAM  PICTURE  '!!!!!!!!!!!!!!!' 

(9  21,  6  SAY  'Last  Name' 

(9  21,16  SAY  IN_LNAM  PICTURE  '!!!!!!!!!!!!!!!' 

TQ_CH0ICE  =  .F. 

(9  23,20  SAY  'DO  YOU  WANT  TO  TRANSFER  THIS  RECORD  (Y/N)?  '; 

GET  TCLCHOICE  PICTURE  'Y' 

CLEAR  TYPEAHEAD 
READ 

* 

RETURN 
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VP  PRMPT 


PROCEDURE  VP.PRMPT 


*  Display  the  primary  and  secondary  key  values  for  the  selected  record.  * 

(9  18,  0  CLEAR  TO  24,79 
(9  18,11  SAY  'SSAN' 

@  18,16  SAY  IN_SSAN  PICTURE  '(aR  999-99-9999* 

(9  19,  5  SAY  'First  Name* 

(9  19,16  SAY  IN.FNAM  PICTURE  '  !  1!  !  !  !  f !  !' !  !  f  f  !  ' 

(9  20,  4  SAY  'Middle  Name' 

(9  20,16  SAY  IN_MNAM  PICTURE  '•?!!!!!»!!!!!!!' 

@  21,  6  SAY  'Last  Name' 

@  21,16  SAY  IN_LNAM  PICTURE  '!!!!!!!!!!!!!!!' 

VP_CH0ICE  =  .F. 

(9  23,  4  SAY  "DO  YOU  WANT  TO  VIEW  THIS  CADET'S  PAY  RRCORD(S)  [Y/N]?  "  ; 

GET  VP_CHOICE  PICTURE  'Y' 

CLEAR  TYPEAHEAD 
READ 

* 

RETURN 


DB3_ERR 


iV 


* 


.* 

* 

-A" 

A 


*  SUMMARY:  * 

*  The  DB3_ERR  procedure  displays  system  error  messages  and  provides  * 

*  limited  corrective  action  capabilities.  If  a  corrupted  index  con-  * 

*  dition  is  detected,  the  system  attempts  to  repair  it  by  creating  a* 

*  replacement.  For  other  errors,  the  system  will  display  an  advisory* 

*  message  and  the  error  number  detected.  This  error  number  can  be  * 

*  used  to  locate  the  problem  area.  An  exact  decoding  of  error  num-  * 

*  bers  can  be  found  in  the  dBASE  III  PLUS  User's  Manual  Appendices.  * 

A  A 


INVOKING  PROCEDURES; 

rV 

A 

Procedure  Name 

Location 

A 

A 

ADD_REC 

RCIS_P2.PRG 

ic 

* 

EDIT_REC 

RCIS_P2.PRG 

A 

Vr 

DEL_REC 

RCIS_P2.PRG 

'fr 

Vr 

VIEW_REC 

RCIS_P2.PRG 

'ft 

* 

TRANS_REC 

RCIS_P2. PRG 

* 

* 

•k 

* 

VARIABLE  DECLARATIONS: 

•fr 

* 

A 

* 

Variable  Name  Status 

Purpose 

* 

A 

__  A 

<v 

* 

ERR.NUM 

PARAMETER 

Used  to  hold  the  system  error  number  * 

returned  by  the  built-in  function  ERR0R().* 

"k 

* 

* 

ERR_MSG 

PARAMETER 

Used  to  hold  the  system  error  number  re-  * 
turned  by  the  built-in  function  MESSAGE!).* 

A 

'k 

* 

* 

PRFX_SAV 

LOCAL 

Used  to  store  a  one  letter  identifier  for  * 
the  source  files.  * 

A 

A 


A 


PROCEDURE  DB3_ERR 

A 

PARAMETERS  ERR_NUM,  ERR_MSG 

A 

PRIVATE  PRFX_SAV 

A 

(9  21,  0 

?  CHR(7) 

(9  21,  0 

?  CHR(7) 

@  21,  0 

?  CHR(7) 

*  If  an  index  error  has  occured,  try  to  correct  the  error  by  reindexing  * 

*  all  query  index  files  using  appropriate  index  string  variables.  * 

IF  CERR_NUM  =68)  .OR.  (ERR_NUM  =  114) 

103 


;vi:v 


(a  21,  0 

@  21,15  SAY  'INDEX  ERROR  DETECTED.  ATTEMPTINC  TO  REBUILD  INDICES.' 
(9  24,0 

PRFX_SAV  =  LEFT(NDX_LIST,1) 

STR_LEN  =  LEN(NDX_LIST) 

STRT_POS  =  1 

DO  WHILE  (STRT_P0S  <  STR_LEN) 

NDX_NAM  =  SUBSTR(NDX_LIST,STRT_POS,6) 

NDX_NAM_F  =  NDX_NAM  +  '.NDX' 

NDX_ID  =  RIGHT(NDX_NAM,4) 


DO  CASE 
CASE 

NDX_ID 

= 

'SSAN' 

NDX_STR 

= 

'SSAN' 

CASE 

NDX_ID 

= 

'WPSS' 

NDX_STR 

= 

' AS_CLASS+(WPSS/ 1000 . 0 ) ' 

CASE 

NDX_ID 

= 

'SCHA' 

NDX_STR 

= 

' AS_CLASS+( CUM_GPA/ 10.0)' 

CASE 

NDX_ID 

= 

' CLAS ' 

NDX_STR 

= 

' STR(AS_CLASS, 1 )+CAT_TYPE+L_NAME+F_NAME ’ 

CASE 

NDX_ID 

'DCFY' 

NDX_STR 

= 

' YEAR(COM_DATE+92)+(FY_RTNG/100. 00) ' ; 

CASE 

NDX_ID 

+ 

' +(DC_RTNG/ 1000 . 000) ' 

'CGDT' 

NDX_STR 

= 

'STR(AS_CLASS, 1)+STR(YEAR(C0M_DATE) ,4) ' ; 

CASE 

NDX_ID 

+ 

' 4STR ( M0NTH( C0M_DATE ) , 2 ) +STR ( DAY( C0M_DATE ) , 2 ) ’ 
'SEDT' 

NDX_STR 

= 

' STR(AS_CLASS, 1)+STR(YEAR(SCHLR_DATE) ,4) ' ; 

' +STR(MONTH(SCHLR_nATE) , 2)+STR(DAY(SCHLR_DATE) 
' +STR( SCHLR_TYPE ,3,1)' 

ENDCASE 

IF  FILE(NDX_NAM_F) 

RE  INDEX  ON  5eNDX_STR  TO  &NDX_NAM 
ENDIF 

STRT_POS  =  STRT_POS  +  7 
ENDDO 

IF  (PRFX_SAV  =  'A')  .OR.  (PRFX_SAV  =  'l') 

CL_NDX  =  STUFF(CT_NDX,1,1,LTRIM(PRFX_SAV)) 

PY_NDX  =  STUFF(P_NDX,1,1,LTRIM(PRFX_SAV)) 

CL_NDX_F  =  CL_NDX  +  '.NDX' 

PY_NDX_F  =  PY_NDX  +  '.NDX' 

CL_STR  =  'AS_CLASS' 

PY_STR  =  'SSAN+STR(YEAR(PAY_DATE]),4)+STR(N0NTH(PAY_DATE1),2)' ; 

+  '+STR(DAY(PAY_DATE1),2)' 

IF  FILE(CL_NDX_F) 

RE INDEX  ON  &CL_STR  TO  &CL_NDX 
ENDIF 

IF  FILE(PY_NDX_F) 

RE INDEX  ON  &PY_STR  TO  &PY_NDX 
ENDIF 
ENDIF 
(3  21,  0 
7  CHR(7) 

@  21,15  SAY  'INDICES  REBUILT.  ATTEMPTING  TO  CONTINUE  PROCESSING.’ 

@  21,  0 

RETRY 
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IF  (ERR_NUM  =  126) 

@  23,  0 

@  23,10  SAY  'PRINTER  ERROR.  CHECK  PRINTER  AND  PRESS  ANY  KEY  TO 
+  '  CONTINUE.’ 

CLEAR  TYPEAHEAD 
WAIT  '  ' 

§  23,  0 
ELSE 

(3  22,  0 

(9  23,  0 

@  22,  0  SAY  ERR_MSG 
@  23,  0  SAY  'REPORT  ERROR  CODE  [’ 

@  23,19  SAY  ERR_NUM  PICTURE  ’@8 
@  23,22  SAY  '].  PRESS  ANY  KEY  TO  CONTINUE.' 

CLEAR  TYPEAHEAD 
WAIT  '  ' 

@  22,  0 
@  23,  0 
ENDIF 
ENDIF 

* 

RETURN 


BEGINNING  OF  RCIS_P3.PRG 


,  ^ 
‘.V 


• 

■-  '  1 

'.V 

'' 

* 

'f.'-r 

* 

r-r 

<*  V 

* 

.* 


* 

QUERIES 

* 

- 

* 

* 

* 

SUMMARY: 

•k 

* 

QUERIES  is  the  main  driver  for  the  system 

Query  functions.  It 

■ft 

■jV 

prepares  the 

required  database  files  for 

processing  and  Invokes 

k 

* 

the  specific 

query  procedure  that  the  user  has  requested. 

k 

* 

k 

* 

CALLED  PROCEDURES: 

k 

* 

-v 

Procedure  Name 

Location 

k 

* 

SET_DBQ 

RCIS_P3.PRG 

k 

* 

DB3_Q_ERR 

RCIS_P3.PRG 

ft 

* 

WPSS.QRY 

RCIS_P3.PRG 

k 

* 

SCHA_QRY 

RCIS_P3.PRG 

k 

■A- 

DCFY_QRY 

RCIS_P3.PRG 

k 

■jV 

CLAS_QRY 

RCIS_P3.PRG 

k 

* 

HRAX_QRY 

RCIS_P3.PRG 

k 

* 

CGDT_QRY 

RCIS_P3.PRG 

k 

* 

SEDT_QRY 

RCIS_P3.PRG 

k 

* 

WTAR_QRY 

RCIS_P3.PRG 

k 

* 

INDV_QRY 

RCIS_P3.PRG 

ft 

* 

PAYI_QRY 

RCIS_P3.PRG 

ft 

iV 

* 

* 

* 

* 

tV 

* 

* 

* 

* 

* 

* 


VARIABLE  DECLARATIONS; 

Variable  Name  Status 

QRY.NDX  LOCAL 


Purpose 


String  variable  containing  the  list  of 
database  index  file  names  used  by  the 
queries . 


* 

* 

* 

.* 

* 

* 

* 

* 


QRY_NDX_F 


LOCAL 


PRFX  SAV 


LOCAL 


String  variable  containing  a  single  data-* 
base  index  file  name.  * 

* 

Used  to  save  a  one  letter  identifier  * 
from  the  front-end  of  the  index  file  name* 


STRT  POS 


LOCAL 


Used  as  a  pointer  to  locate  the  beginning* 
of  each  file  name  in  the  index  string.  * 

* 

_ * 


PROCEDURE  QUERIES 
* 


DO  SET_DBQ 

ON  ERROR  DO  DB3_Q_ERR  WITH  ERROR(),  MESSAGE() 


* 


SELECT  1 
USE  &M  FILE 
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•  •  "  •  ’f-v"' 


IF  QS_SELECT  =  'Q' 

SELECT  2 
USE  &P_FILE 
ENDIF 
SELECT  1 

*  If  the  Master  file  is  empty,  erase  all  existing  index  files.  * 

IF  (RECNOO  =  1  .AND.  EOF()) 

@  23,  0  SAY  'REQUIRED  DATABASE  FILE  IS  EMPTY.  PRESS  ANY  KEY  AND  MAKE'  ; 
+  '  ANOTHER  SELECTION. ' 

WAIT  '  ' 

PRFX.SAV  =  LEFT(M_NDX_F,1) 

QRY_NDX  =  'X_SSAN.NDX,X_WPSS.NDX,X_SCHA.NDX,X_DCFY.NDX,X_CLAS.NDX'  ; 

+  ' , X_CGDT . NDX , X_SEDT . NDX ' 

STRT_POS  =  1 

DO  WHILE  (STRT_POS  <  77) 

QRY_NDX_F  =  SUBSTR(QRY_NDX,STRT_POS, 10) 

QRY_NDX_F  =  STUFF(QRY_NDX_F,1,1,LTRIM(PRFX_SAV)) 

IF  FILE(QRY_NDX_F) 

ERASE  &QRY_NDX_F 
ENDIF 

STRT_P0S  =  STRT_POS  +11 
ENDDO 
ELSE 

EMPTY_P  =  .F. 

SELECT  2 

*  If  the  Pay  file  is  empty,  erase  its  index  file.  * 

IF  (RECNOO  =  1  .AND.  EOFO) 

EMPTY.P  =  .T. 

IF  FILE(P_NDX_F) 

ERASE  &P_NDX_F 
ENDIF 
ENDIF 

IF  (QS_SELECT  =  'Q')  .AND.  (EMPTY_P) 

@  23,  0  SAY  'REQUIRED  DATABASE  FILE  IS  EMPTY.  PRESS  ANY  KEY  AND  MAKE' 
+  '  ANOTHER  SELECTION. ' 

WAIT  '  ' 

ELSE 

*  Initialize  spacing  variables  used  in  output  formatting.  * 

52  =  SPACE(2) 

53  =  SPACE(3) 

54  =  SPACE(4) 

55  =  SPACE(5) 

56  =  SPACE(6) 

57  =  SPACE(7) 

S17  =  SPACE(17) 

S26  =  SPACE(26) 

S31  =  SPACE(31) 

*  If  the  WPSS,  SCHA,  DCFY,  or  INDV  query  has  been  selected,  * 


set  up  the  class  enrollment  totals  relation  file. 


* 


* 


IF  (QS_SELECT  =  'H'  .OR.  QS_SELECT  =  'l'  .OR.  QS_SELECT  =  'J'  .OR.  ; 
QS_SELECT  =  'P') 

SELECT  2 
USE  &CT_FILE 

IF  (.NOT.  FILE(CT_NDX_F)) 

INDEX  ON  AS_CLASS  TO  &CT_NDX 
ENDIF 

SET  INDEX  TO  &CT_NDX 
ENDIF 


*  If  the  WTAR  query  has  been  selected,  set  up  the  height  * 

*  standards  and  the  aerobics  run  time  standards  relation  files.  * 

IF  (qS_SELECT  =  '0') 

SELECT  2 
USE  T_CDT_HW 

IF  (.NOT.  FILE( ’T_HGHT.NDX’)) 

INDEX  ON  HEIGHT  TO  T_HGHT 
ENDIF 

SET  INDEX  TO  T_HGHT 
SELECT  3 


USE  T_CDT_RT 

IF  (.NOT.  FILE(’T_AGEC.NDX')) 

INDEX  ON  AGE_CAT  TO  T_AGEC 
ENDIF 

SET  INDEX  TO  T_AGEC 

ENDIF 

*  Direct  the  process  flow  to  the  query  procedure  which  * 

*  corresponds  to  the  user's  menu  selection.  * 

DO  CASE 

CASE  QS_SELECT  =  'H' 

DO  WPSS_QRY 
CASE  QS_SELECT  =  'l' 

DO  SCHA_QRY 
CASE  QS_SELECT  =  'j' 

DO  DCFY_QRY 
CASE  QS_SELECT  =  'K' 

DO  CLAS_QRY 
CASE  QS_SELECT  =  'L' 

DO  HRAX_QRY 
CASE  QS_SELECT  =  'M' 

DO  CGDT_QRY 
CASE  QS_SELECT  =  'N' 

DO  SEDT_QRY 
CASE  QS_SELECT  =  'O' 


DO  WTAR_QRY 
CASE  QS_SELECT  =  'P' 
DO  INDV_QRY 
CASE  QS_SELECT  =  ’Q’ 
DO  PAYI_QRY 


ENDCASE 

ENDIF 

ENDIF 

* 

SELECT  3 
USE 

SELECT  2 
USE 

SELECT  1 
USE 

* 

F_PARA  =  STUFF(F_PARA, 1,1, ‘A’) 

F_PARA  =  STUFF(F_PARA,6, 1, 'H' ) 

CLEAR 

(§  1,  0  TO  3,79 

(a  2,22  SAY  'ROTC  CADET  INFORMATION  SYSTEM  (RCIS)' 
ON  ERROR 

* 

RETURN 


Vr 

* 

* 


WPSS_QRY 


SUMMARY :  * 

The  WPSS_QRY  procedure  provides  the  interface  for  the  user  to  per-  * 
form  ad  hoc  queries  on  cadet  data  which  is  related  to  or  used  in  * 
the  computation  of  the  Weighted  POC  Selection  System  (WPSS)  score.  * 


.»»»»all  that  follows  applies  for  all  query  PR0CEDURES««««<««* 

Procedures  build  the  query  interface  screen,  prompt  the  user  to  * 
enter  the  desired  constraint  operators  and  values,  error  check  the  * 
inputs,  build  the  query  output  formats  and  invoke  the  dBASE  III  * 
PLUS  system  to  locate  the  records  which  meet  all  the  input  con-  * 
straints.  If  any  records  are  located  they  will  be  printed  via  the  * 
output  media  the  user  has  previously  selected.  * 
This  particular  query  procedure  will  contain  extensive  comments  for* 
each  significant  code  structure.  The  comments  for  each  structure  * 
will  apply  for  every  query  procedure  since  all  queries  have  the  * 
same  major  code  structures.  The  structure's  comments  will  be  * 
numbered  and  in  all  subsequent  query  procedures  will  be  labeled  * 
with  those  same  corresponding  numbers.  * 


CALLED  PROCEDURES: 


Procedure  Name 


Location 


DB3_CLERR 
RO_CHK 
ERR_NF 
RCIS_HDR 
M  PROMPT 


RCIS_P3.PRG 

RCIS_P3.PRG 

RCIS_P3.PRG 

RCIS_P3.PRG 

RCIS_P3.PRG 


VARIABLE  DECLARATIONS: 


* 

* 

Variable  Name 

Status 

Vf 

DONE 

LOCAL 

* 

* 

xV 

STOP_LOOP 

LOCAL 

* 

* 

TFMP_L00P 

LOCAL 

* 

Vr 

*V 

GOOD_RO 

LOCAL 

FIRST_TIME 

T/ICAL 

* 

■k 

k 

HDRXX 

LOCAL 

Purpose 


Boolean  flag  used  to  terminate  the  INTER-* 
MEDIATE  loops  in  the  qtiery  procedures.  * 

* 

Boolean  flag  used  to  signal  an  exit  from  * 
the  MAIN  loop  in  the  qtiery  procedures.  * 

* 

Boolean  flag  used  to  terminate  the  loop  * 
which  checks  for  invalid  relational  oper-* 
ators .  * 

* 


Boolean  flag  used  to  indicate  whether  all* 
input  relational  operators  are  valid.  * 

* 

Boolean  flag  used  to  signal  the  beginning* 
of  a  query  print  so  that  the  report  head-* 
er  will  only  print  once  at  the  beginning.* 


String  variable  containing  the  one  line  * 
of  the  report  header.  'X's  will  have  num-* 


bers  and  letters  indicating  the  position  * 
of  the  header.  * 


DATAX  X 


LOCAL  String  variable  containing  the  formatted  * 

data  names  and  spacers  for  the  printouts.* 
First  'X'  will  have  a  number  indicating  * 
the  Xth  line  per* cadet.  Second  'X'  will  * 
have  's'  (10  pitch)  or  'L'  (17  pitch)  * 

indicating  short  or  long  print  format.  * 

■A 

LOCAL  Used  to  store  the  data  field  inputs  from  * 

the  query  input  screens.  'X's  will  have  * 
numbers  and  letters  Indicating  the  posi-  * 
tion  of  the  data  input  field.  * 


LOCAL 


FILT  STR 


LOCAL 


MAX  LINES 


DISP.LINE 


LOCAL 


LOCAL 


Used  to  store  the  operator  field  inputs  * 
from  the  query  input  screens.  'X's  will  * 
have  numbers  and  letters  Indicating  the  * 
position  of  the  operator  input  field.  * 

String  variable  containing  the  list  of  * 
dBASE  III  PLUS  filter  conditions  built  * 
from  the  fields  indicated  on  the  query  * 
input  screen.  * 

ic 

Used  to  specify  the  maximum  number  of  * 
print  lines  per  page  for  the  selected  * 
output  media.  * 

* 

Used  to  indicate  the  current  print  line  * 
for  the  printed  output.  * 


*  NOTE  :  Most  of  the  PRIVATE  variables  used  in  the  query  procedures  are  * 

*  used  for  the  purpose  of  printing  out  the  state  of  logical  * 

*  variables.  Logical  variables  cannot  be  converted  to  a  string  so  * 

*  if  they  are  TRUE,  a  'Y'  is  stored  in  their  corresponding  string  * 

*  variable,  if  they  are  FALSE,  a  'N'  is  stored  in  their  correspond-* 

*  ing  string  variable.  * 

*  * 

*»»»»»»>ALL  that  PRECEDES  APPLIES  FOR  ALL  QUERY  PROCEDURES««««««* 


PROCEDURE  WPSS_QRY 
* 

PRIVATE  FYC 
PRIVATE  PRS 
PRIVATE  WRQ 
PRIVATE  PLS 
PRIVATE  PRINT_0PT 
PRIVATE  SPACER 

* 

ON  ERROR  DO  DB3_Q_ERR  WITH  ERR0R(),  MESSAGED 
CLEAR 

M  CHOICE  =  .T. 


*  vvvvvvvvvvvvvvvvvvvv  //I.  MAIN  OUTER  LOOP  vvvvvvvvvvvvvvvvvv  * 

*  Loop  until  user  chooses  to  terminate  this  query  function  mode.  * 

DO  WHILE  (M_CHOTCE) 

*  Initialize  operator  and  constraint  fields.  * 


DONE  =  .F. 

OlA  =  '  ' 

FIA  =  '  ' 

OIB  =  ’  ' 

FIB  =  '  ’ 

02A  =  '  ' 

F2A  =  ' 

02B  =  '  ' 

F2B  =  '  ' 

03A  =  '  ' 

F3A  =  ' 

03B  =  '  ' 

F3B  =  ' 

F4  =  ' 

PRINT_OPT  =  1 

-V  vvvvvvvvvvvvvvvv  iH.  INTERMEDIATE  SCREEN  I, OOP  vvvvvvvvvvvvvvvvv  * 

*  Loop  until  user  enters  data  in  query  fields  or  choose.s  to  terminate  * 

*  this  query  function  mode.  * 

DO  WHILE  (.NOT.  DONE) 

CLEAR 

DO  HELP_SCRN 
(§  1,  0  TO  16,79 

?  1,20  SAY  '  WEIGHTED  POC  SELECTION  SYSTEM  (WPSS)  QUERY  ' 

(3  3,28  SAY  'AS  Class’ 

@  6,26  SAY  'WPSS  Score’ 

@  9,27  SAY  'Last  Name' 

@  12,32  SAY  'SSAN' 

(3  14,14  SAY  'Print  Options’ 

(3  15,14  SAY  ’  Brief  -  1  ,  Detailed  -  2' 

*  vvvvvvvvvvvvvvvv  /i3.  INTERMEDIATE  INPUT  LOOP  vvvvvvvvvvvvvvvv  * 

*  Loop  until  user  is  finised  making  changes  to  the  Input,  or  until  * 
all  operator  inputs  are  valid,  or  until  user  chooses  to  terminate  * 

*  this  query  function  mode.  * 


DO  WHILE  (.NOT.  DONE) 


3,37 

GET 

OlA 

PICTURE 

’  !  ! 

(§ 

3,40 

GET 

FIA 

PICTURE 

’9’ 

@ 

4,37 

GET 

OIB 

PICTURE 

'  ! !  ’ 

@ 

4,40 

GET 

FIB 

PICTURE 

’9’ 

(9 

6,37 

GET 

02A 

PICTURE 

’  !  !  ’ 

@ 

6,40 

GET 

F2A 

PICTURE 

’999 

(9 

7,37 

GET 

02B 

PICTURE 

’  !  !  ’ 

(9 

7,40 

GET 

F2B 

PICTURE 

'999 

(9 

9,37 

GET 

03A 

PICTURE 

’  ! !  ’ 
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J 


J 


(§  9,40  GET  F3A  PICTURE  ’!!!!!!!!!'  f  !!!  f  ’ 

(a  10,37  GET  03B  PICTURE  '!!’ 

@  10,40  GET  F3B  PICTURE  '!!!!!!!!!!!!!!!' 

J  12,40  GET  F4  PICTURE  '@R  999-99-9999' 

@  15,40  GET  PRINT_OPT  PICTURE  '9'  RANGE  1,2 
CLEAR  TYPEAHEAD 

*  Read  query  screen  inputs  and  prepare  to  process  them.  * 

READ 
@  23,  0 
(9  23,19  SAY  ; 

"DO  YOU  WANT  TO  CANCEL  THIS  QUERY  [Y/N]?  "  GET  DONE  PICTURE  'Y 
CLEAR  TYPEAHEAD 
READ 

*  If  the  user  chooses  to  cancel  the  query,  set  the  required  * 

*  flags  to  terminate  all  procedure  loops.  * 

IF  (DONE) 

ST0P_L00P  =  .T. 

M_CH0ICE  =  .F. 

EXIT 

ELSE 

ST0P_L00P  =  .F. 

END  IF 

(3  23,  0 
@  23,19  SAY  ; 

"DO  YOU  WANT  TO  MAKE  ANY  CHANGES  [Y/N]?  "  GET  DONE  PICTURE  'Y 
CLEAR  TYPEAHEAD 
READ 

*  If  the  user  wants  to  change  their  inputs,  set  DONE  flag  to  * 

*  flase  and  repeat  the  current  loop.  * 

IF  (DONE) 

(3  23,  0 
DONE  =  .F. 

LOOP 

ELSE 

DONE  =  .T. 

END  IF 

*  vvvvvvvvvvvv  #4.  RELATIONAL  OPERATOR  CHECK  vvvvvvvvvvvv  * 

*  Check  all  relational  operators  for  valid  entries  and  exit  * 

*  the  loop  when  the  first  invalid  entry  is  detected.  * 

G00D_R0  =  .T. 

TEMP_LOOP  =  .T. 

DO  WHILE  fTEMP_L00P) 

IF  (OlA  <>  '  ’) 

DO  R0_CHK  WITH  OlA 
IF  (.NOT.  GOOD_RO) 

EXIT 


( 


ENDIF 
END  IF 

IF  (OIB  o'  ' ) 

DO  Rn_CHK  WITH  OIB 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (02A  o'  ' ) 

DO  RO_CHK  WITH  02A 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (02B  o'  ' ) 

DO  RO_CHK  WITH  02B 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (03A  o'  ' ) 

DO  RO_CHK  WITH  03A 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (03B  o'  ' ) 

DO  RO_CHK  WITH  03B 
IF  (.NOT.  GOOD.RO) 

EXIT 

ENDIF 

ENDIF 

TEMP_LOOP  =  .F. 

ENDDO 

IF  (.NOT.  GOOD_RO) 

(§  23,  0 
?  CHR(7J 
M_CHOICE  =  .F. 

(9  23,  4  SAY  'INVALID  RELATIONAL  OPERATOR.  WOULD  YOU  LIKE  TO' 
+  '  TRY  AGAIN  [Y/N]?  '  GET  M_CHOICE  PICTURE  'y' 
CLEAR  TYPEAHEAD 
READ 


*  Give  the  user  the  option  of  either  returning  to  the 

*  query  input  screen  or  terminating  the,  query  function. 


IF  (M_CHOICE) 

@  23,  0 
DONE  =  .F. 
ELSE 

STOP_LOOP  = 
EXIT 
ENDIF 
ENDIF 
ENDDO 


w»*5? 


a 


*  Check  to  see  if  query  termination  condition  has  been  previously  * 

*  set  to  ' true ' .  * 

IF  (STOP_LOOP) 

EXIT 

*  vvvvvvvvvvvv  .  BUILD  QUERY  OUTPUT  FORMAT  vvvvvvvvvvvv  * 

*  Initialize  and  build  string  variables  used  to  define  the  * 

*  format  for  the  query  output.  String  variables  are  used  in  * 

*  conjunction  with  the  dBASE  III  PLUS  "SAY"  command.  * 

ELSE 

HDRIA  =  ' ' 

HDRIB  =  ' ' 

HDR2A  =  ’ ' 

HDR2B  =  ' ' 

HDR3A  =  ' ' 

HDR3B  =  ' ' 

DATA1_S  =  ’ ' 

DATAl.L  =  ' ' 

DATA2_S  =  ' ' 

DATA2_L  =  ' ' 

DATA3_S  =  ’ ' 

DATA3_L  =  ' ' 

SEP_LINE  =  ' ' 

BLK_LINE  =  ' ' 

HDRIA  =  'First  Last  WPSS  DC  GPA 

+  ’  SAT  AFOQT  AFOQT  AFOQT' 

HDRIB  =  'Name  Name  Score  Rating  Cum  '; 

+  '  Cum  AcAp  Quan  Verb  ' 

DATA1_S  =  "LEFT(F_NAME,14)+S2+L_NAME+S2+STR(WPSS,6,2)+S4"; 

+  "+STR( DC_RTNG , 1 )+S5+STR( CUM_GPA ,4,2) +S2+STR( SAT.CUM , 4 )+S2" ; 

+  "+STR( AFOQT_AA , 2 )+S5+STR( AFOQT_QUAN , 2 ) +S5+STR( AFOQT_VERB , 2 )+S3" 


(PRINT.OPT 
HDR2A  =  ' 

=  2) 

AS 

AS  Class  GPA  ' ; 

+  ' 

SAT 

SAT 

Schlr 

Pilot ' 

HDR2B  =  ' 

Class 

Rank  Sem  ' ; 

+  ' 

Math 

Verb 

Type 

Liens ' 

DATA2_S  =  "S31+STR(AS_CLASS, l)+S7+STR(AS_RNK_POS,3)+'/'+CLAS_NUM"; 
+  "+S3+STR(SEM_GPA,4,2)+S2+STR( S AT_MATH , 3 ) +S  3+STR ( S AT_VERB , 3 ) " ; 
+  "+S4+TRANSF0RM(SCHLR_TYPE, '(aR  9 . 9  '  )+S4+PLS+S4" 

HDR3A  =  '  Phys' ; 

+  '  Grad  Comm  ' 

HDR3B  =  '  DOB  Age  Date'; 

+  '  Date  Date  ' 

DATA3_S  =  "S31+DTOC(BIRTHDATE)+S3+AGE+S5+DTOC(PHY_DATE)+S2"; 

+  "+DTOC  (  GRAD_DATF. )  +S  2+DTOC  ( COM_DATE  )  +S  3" 

END  IF 

SEP_LINE  =  REPLICATE('_' ,80) 

BLK_LINE  =  REPLICATEC  ’,80) 

SQG_LINE  =  REPLICATEC'"’ ,80) 

IF  (Q0_SELECT  =  'j') 
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HDRIA  =  HDRIA  >  '  AFOQT  AFOQT  Cat  FY  FSP' 

HDRIB  =  HDRIB  +  '  Pilot  Nav  Type  Rating  Major  Date' 

DATA1_L  =  "S2+STR(AFOQT_PLT,2)+S5+STR(AFOQT_NAV,2)+S5"; 

+  "+CAT_TYPE+S5+STR(FY_RTNG, 2)+S6+MAJOR+S3+DTOC(FSP_DATE)" 
HDR2A  =  HDR2A  +  '  4-Yr  Prior  Waiv’ 

HDR2B  =  HDR2B  +  '  Cadet  Serv  Req  Race' 

DATA2_L  =  "S2+FYC+S6+PRS+S6+WRQ+S64-RACE" 

HDR3A  =  HDR3A  +  '  Form  Corps' 

HDR3B  =  HDR3B  +  '  48  Auxiliaries' 

DATA3_L  =  "S2+DTOC(FORM_48)+S2"  ; 

+  "+TRANSFORM(CORPS_AUX,  '@R  !!  |  !!,'!!  |  !!  j  !!  |  !!  J  !!  |  !!'  )" 
SEP_LINE  =  SEP_LINE  +  REPLICATE( '_' ,52) 

BLK_LINE  =  BLK_LINE  +  REPLICATE( '  ',52) 

SQG_LINE  =  SQG_LINE  +  REPLICATE( ' ‘ , 52) 

ENDIF 

*  vvvvvvvvvvvvvv  #6.  BUILD  FILTER  STRING  vvvvvvvvvvvvvv  * 

*  Initialize  and  build  string  varaible  used  to  set  the  filter  * 

*  condition  for  this  query.  The  string  variable  is  used  in  * 

*  conjunction  with  the  dBASE  III  PLUS  command  "SET  FILTER  TO".* 

*  The  filter  masks  all  records  which  do  not  meet  all  the  con-  * 

*  ditions  specified  in  the  string  varaible.  * 

FILT_STR  =  ' ' 

IF  (LEN(LTRIM(F1A))  >  0) 

FILT_STR  =  'AS_CLASS'  +  OlA  +  FIA 
ENDIF 

IF  (LEN(LTRIM(F1B))  >  0  .AND.  (OlA  <>  OIB)  .AND.  (FIA  <>  FIB)) 
IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND. AS_CLASS '  +  OIB  +  FIB 
ELSE 

FILT_STR  =  'AS_CLASS'  +  OIB  +  FIB 
ENDIF 
ENDIF 

IF  (LEN(LTRIM(F2A))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '.AND.WPSS'  +  02A  +  F2A 
ELSE 

FILT_STR  =  'WPSS'  +  02A  +  F2A 
ENDIF 
ENDIF 

IF  (LEN(LTRIM(F2B))  >  0  .AND.  (02A  <>  02B)  .AND.  (F2A  <>  F2B)) 
IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '.AND.WPSS'  +  n2B  t  F2B 
ELSE 

FILT_STR  =  'WPSS'  +  02B  +  F2B 
ENDIF 
ENDIF 

IF  (LEN(LTRIM(F3A))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '  . AND.  I._NAME '  +  03A  +  '""  +  F3A  +  '"" 
ELSE 

FILT_STR  =  'L_NAME'  +  03A  +  +  F3A  +  '"" 

ENDIF 

ENDIF 


TF  (LEN(LTRIM(F3B))  >  0  .AND.  (03A  <>  03B)  .AND.  (F3A  <>  F3B)) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . L_NAME '  +  03B  +  +  F3B  +  " 

ELSE 

FILT_STR  =  'L_NAME'  +  03B  +  +  F3B  + 

END  IF 
END  IF 

IF  (LEN(LTRIM(F4))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ’.AND.SSAN  ='  +  +  F4  + 

ELSE 

FILT_STR  =  'SSAN  ='  +  +  F4  + 

ENDIF 
ENDIF 
DONE  =  .T. 

*  vvvvvvvvvv  in.  ACCESS  DATABASE  &  DIRECT  OUTPUT  vvvvvvvvvv  * 

*  If  user  has  entered  data  in  the  query  fields,  then  proceed  to  * 

*  process  their  inputs.  Open  the  required  database  files,  set  * 

*  the  filter  condition,  set  the  print  constraints  and  direct  the* 

*  print  to  the  selected  output  media.  * 

IF  (LEN(FILT_STR)  >  0) 

@  23,  0 

@  23,14  SAY  'SEARCHING  DATABASE  FILES  FOR  CORRESPONDING  RECORD(S)' 
SELECT  1 

IF  (.NOT.  FILE(M_NDX_F)) 

INDEX  ON  &M_NDX_STR  TO  &M_NDX 
ENDIF 

SET  INDEX  TO  &M_NDX 
SET  FILTER  TO  &FILT_STR 
GOTO  TOP 
DO  CASE 

*  If  none  of  the  database  records  meet  all  the  input  * 

*  constraints,  give  the  user  the  option  to  try  again  * 

*  or  to  terminate  the  query.  * 

CASE  (EOFO) 

DO  ERR_NF 
IF  (M.CHOICE) 

DONE  =  .F. 

LOOP 

ELSE 

EXIT 

ENDIF 

*  If  some  database  records  meet  the  constraints,  ini-  * 

*  tialize  the  print  environment  and  perform  print  loop  * 

*  until  all  records  are  printed.  * 

CASE  (.NOT.  EOFO) 

IF  Q0_SELECT  <>  'H' 

SET  PRINT  ON 

SET  DEVICE  TO  PRINT 


IF  QO_SELECT  =  'j' 

(9  0,  1  SAY  CHR(27)  +  CHR(15) 

ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(77) 

END  IF 

MAX.LINES  =  66 
ELSE 

MAX_LINES  =  23 
END  IF 

IF  (QO_SELECT  <>  'j') 

SPACER  =  SPACE(18) 

ELSE 

SPACER  =  SPACE (49) 

ENDIF 

CLEAR 

@  0,  0  SAY  SPACER  +  'WEIGHTED  POC  SELECTION  SYSTEM'; 

+  '(WPSS)  REPORT' 

@  1.  0 

FIRST_TIME  =  .T. 

DISP  LINE  =  2 


*  vvvvvvvvvv  #8.  DATABASE  RECORD  LOOP  vvvvvvvvvv  * 

*  Loop  until  all  database  records  (which  meet  input  * 

*  constraints)  have  been  printed.  * 

DO  WHILE  (.NOT.  EOF()) 

IF  ((DISP_LINE  >  0)  .AND.  (Q0_SELECT  <>  'H')) 

IF  (.NOT.  FIRST_TIME) 

EJECT 

ENDIF 

ENDIF 

IF  (FIRST_TIME) 

FIRST_TIME  =  .F. 

ELSE 

DISP_LINE  =  0 
CLEAR 
ENDIF 

*  vvvvvvvvvvvvv  if  9 .  PAGING  LOOP  vvvvvvvvvvvvv  * 

*  Loop  until  the  display  line  exceeds  the  maximum  * 

*  number  of  lines  for  the  selected  output  media.  * 

DO  WHILE  ((DISP_LINE  <  MAX_LTNES)  .AND.  (.NOT.  EOF())) 
REC_NUM  =  RECNOO 

*  If  the  number  of  print  lines  per  cadet  will  * 

*  not  fit  on  one  page,  exit  the  loop  and  go  to  * 

*  the  next  page.  * 


IF  ((MAX_LINES-DISP_LTNE)  <  11) . AND. (PRINT_0PT  =  2) 
EXIT 
ELSE 

IF  ((DISP_LINE  <=  3)  .OR.  (PRINT_0PT  =  2)) 

@  DISP_LINE.  0  SAY  HDRIA 
@  DISP_LTNE  +  I,  0  SAY  HDRIB 
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IF  (QO_SELECT  <>  'H') 

@  DISP_LINE  +1,  0  SAY  SEP_LINE 
ENDIF 

DISP_LTNE  =  DISP_LINE  +  2 
ENDIF 

@  DISP_LINE,  0  SAY  &DATA1_S 
IF  (QO_SELECT  =  'j') 

@  DISP_LINE,  80  SAY  &DATAI_L 
ENDIF 

DISP_LINE  =  DISP_LINE  +  2 
IF  (PRINT_OPT  =  2) 

@  DISP_LINE,  0  SAY  HDR2A 
@  DISP_LINE  +1,  0  SAY  HDR2B 
IF  (QO_SELECT  <>  'H') 

SEP_LINE  =  STUFF(SEP_LINE, 1,31,S31) 

@  DISP_LINE  +1,  0  SAY  SEP_LINE 
ENDIF 
PLS  =  'N' 

IF  PLT_LICENS 
PLS  =  'Y' 

ENDIF 

CLAS_VAL  =  AS_CLASS 
SELECT  2 
SEEK  CLAS_VAL 
IF  (.NOT.  EOFO) 

CLAS_NUM  =  STR(AS_CL_TOT,3) 

ELSE 

CLAS_NUM  =  '  ?  ' 

ENDIF 
SELECT  1 
GOTO  REC_NUM 

@  DISP.LINE  +2,  0  SAY  &DATA2_S 
IF  (QO_SELECT  =  'j') 

FYC  =  'N' 

PRS  =  'N' 

WRQ  =  'N' 

IF  FOUR_YR 
FYC  =  'Y' 

ENDIF 

IF  PRIOR_SVC 
PRS  =  'Y' 

ENDIF 

IF  WAIVER_REQ 
WRQ  =  'Y' 

ENDIF 

@  DISP_LINE  +  2,  80  SAY  &DATA2_L 
ENDIF 

@  DISP_LINE  +4,  0  SAY  HDR3A 
@  DISP_LINE  +5,  0  SAY  HDR3B 
IF  (QO_SELECT  <>  'H') 

(a  DISP_LINE  +  5,  0  SAY  SEP.LINF 
SEP_LINE  =  STUFF(SEP_LTNE,1,31,REPLICATE('_' ,31)) 
ENDIF 

@  DISP_LINE  +6,  0  SAY  &DATA3_S 
IF  (QO_SELECT  =  'j') 


80  SAY  &DATA2  L 


<§  DISP_LINE  +  6,  80  SAY  &DATA3_L 
ENDIF 

@  DISP_LINE  +7,  0  SAY  SQG_LINE 
DISP_LINE  =  DISP_LINE  +  8 
ENDIF 
ENDIF 

*  Issue  dBASE  III  PLUS  command  to  go  to  the 

*  next  record  which  meets  the  Input  constraints. 

SKIP 

ENDDO 

*  If  the  output  media  is  the  screen,  issue  the  user 

*  paging  prompt . 

IF  (Q0_SELECT  =  'H') 

@  23,  0  SAY  'PRESS  ANY  KEY  TO  CONTINUE' 

CLEAR  TYPEAHEAD 
WAIT  " 

ENDIF 
ENDDO 

IF  (Q0_SELECT  <>  'H') 

(3  DISP_LINE  +1,  0  SAY  CHR(IO) 

EJECT 

IF  (Q0_SELECT  =  'J' ) 

@  0,  1  SAY  CHR(18) 

ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(80) 

ENDIF 

SET  PRINT  OFF 
ENDIF 

SET  DEVICE  TO  SCREEN 
SET  FILTER  TO 

ENDCASE 


*  If  the  user  fails  to  enter  any  data  in  the  input  fields,  * 

*  issue  a  prompt  for  them  to  please  enter  data  (if  they  had  * 

*  intended  to  cancel  the  query,  they  should  not  have  gotten  * 

*  this  far  in  the  procedure).  * 

ELSE 

(3  23,  0 
?  CHR(7) 

@  23,  4  SAY  'PLEASE  ENTER  DATA.  PRESS  ANY  KEY  TO -CONTTNUE . ' 
CLEAR  TYPEAHEAD 
WAIT  " 

@  23,  0 
DONE  =  .F. 

ENDIF 

ENDIF 

ENDDO 

CLEAR 


*  If  the  user  has  not  previously  entered  a  response  to  terminate  the  * 
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*  query  (M_CHOICE  would  be  "false"),  then  give  them  the  opportunity  * 

*  to  do  another  query  or  terminate  the  function.  * 


IF  (M_CHOICE) 

DO  RCIS_HDR 
DO  M_PROMPT 
ENDIF 
ENDDO 

*  Close  the  database  files  used  in  this  query. 

SELECT  2 
USE 

SELECT  1 
USE 

F_PARA  =  STUFF(F_PARA,1,1.’C') 

ON  ERROR 

* 

RETURN 


•SV 

.4  C 


* 

* 


SCHA_QRY 


* 

* 


*  SUMMARY :  * 

*  The  SCHA_QRY  procedure  provides  the  interface  for  the  user  to  per-  * 

*  form  ad  hoc  queries  on  cadet  data  which  is  related  to  cadet  schol-  * 

*  arship  requirements  and/or  cadet  academic  performance.  * 


PROCEDURE  SCHA_QRY 


PRIVATE  SPACER 


ON  ERROR  DO  DB3_Q_ERR  WITH  ERROR(),  MESSAGE! ) 
CLEAR 

M  CHOICE  =  .T. 


*  vvvvvvvvvvvvvvvvvvvv  #1.  MAIN  OUTER  LOOP  vvvvvvvvvvvvvvvvvv  * 


DO  WHILE  (M_CHOICE) 


*  Initialize  operator  and  constraint  fields. 


DONE  =  .F. 
OlA  =  '  ' 

FIA  =  '  ' 
OIB  =  '  ' 

FIB  =  '  ' 
F2  =  '  ’ 
03A  =  '  ' 

F3A  =  ' 

03B  =  '  ' 

F3B  =  ' 

04  =  '>=' 

F4  =  ' 

05  =  '>=' 

F5  =  '10' 
06  =  '>=' 
F6  =  '15' 
07  =  '>=' 

F7  =  '50' 
08  =  '>=' 
F8  =  '30' 
09  =  '  ' 

F9  =  ' 


*  vvvvvvvvvvvvvvvvv  /^2 .  INTERMEDIATE  SCREEN  TiOOP  vvvvvvvvvvvvvvvvv  * 


DO  WHILE  (.NOT.  DONE) 
CLEAR 

DO  HELP_SCRN 
(a  1,  0  TO  15,79 


WOT 


.r 

f 


3 


i 

^1*11 


(a  1,16  SAY  '  SCHOLARSHIP  CANDIDATES/ACADF.MTC  PERFORMANCE  QUERY  ' 
@  3,12  SAY  'AS  Class' 

(a  6,  2  SAY  'Scholarship' 

@  7,  2  SAY  'Category  (T,  N,  P)' 

@  10,11  SAY  'Last  Name' 

@  3,49  SAY  'Cumulative  GPA' 

(a  5,53  SAY  'AFOQT  Quan' 

(a  7,53  SAY  'AFOQT  Verb' 

(a  9,52  SAY  'AFOQT  Pilot' 

(a  11,54  SAY  'AFOQT  Nav’ 

@  13,49  SAY  'Cumulative  SAT' 


vvvvvvvvvvvvvvvv 


INTERMEDIATE  INPUT  LOOP  vvvvvvvvvvvvvvvv 


DO  WHILE  ( 
(a  3,21 
@  3,24 

(9  4,21 

(a  4,24 
@  7,24 

(a  10,21 

@  10,24 
@  11,21 
(a  11,24 
@  3,64 

(3  3,67 

(a  5,64 
@  5,67 

@  7,64 

(9  7,67 

(3  9,64 

(9  9,67 

(9  11,64 
@  11,67 
@  13,64 
(a  13,67 
READ 


■NOT.  DONE) 

GET  OlA  PICTURE  ' ! ! ' 

GET  FIA  PICTURE  '9' 

GET  OIB  PICTURE  ' ! ! ' 

GET  FIB  PICTURE  '9' 

GET  F2  PICTURE  ' ! ' 

GET  03A  PICTURE  ' ! !  ' 

GET  F3A  PICTURE  '!!!!!!!!!!!!!!!' 
GET  03B  PICTURE  ' f ! ’ 

GET  F3B  PICTURE  '!!!!!!!!!!!!!!!' 
GET  04  PICTURE  ' ! ! ' 

GET  F4  PICTURE  '9.99' 

GET  05  PTCTTfRF.  '  »  f  ’ 


GET  04 
GET  F4 
GET  05 
GET  F5 
GET  06 
GET  F6 
GET  07 
GET  F7 
GET  08 
GET  F8 
GET  09 
GET  F9 


PICTlfRE 
PICTURE  '99' 
PICTURE  '!!' 
PICTURE  '99' 
PICTURE  '!!’ 
PICTURE  '99' 
PICTURE  ’!!' 
PICTURE  '99' 
PICTURE  ' ! ! ' 
PICTURE  '9999' 


*  Read  query  screen  inputs  and  prepare  to  process  them.  * 

@  23,  0 
(3  23,19  SAY  ; 

"DO  YOU  WANT  TO  CANCEL  THIS  QUERY  fY/N]?  "  GET  DONE  PICTURE  'Y' 
CLEAR  TYPEAHEAD 
READ 

*  If  the  user  chooses  to  cancel  the  query,  set  the  required  * 

*  flags  to  terminate  all  procedure  loops.  * 

IF  (DONE) 

ST0P_L00P  =  .T. 

M_CHOICE  =  .F. 

EXIT 

ELSE 

STOP  LOOP  =  .F. 


m 


IW 


mm 


ENDIF 
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@  23,  0 

@  23,19  SAY  ; 

"DO  YOU  WANT  TO  MAKE  ANY  CHANGES  [Y/N]?  "  GET  DONE  PICTURE  'Y' 

CLEAR  TYPEAHEAD 

READ 

*  If  the  user  wants  to  change  their  inputs,  set  DONE  flag  to  * 

*  flase  and  repeat  the  current  loop.  * 

IF  (DONE) 

(§  23,  0 
DONE  =  .F. 

LOOP 

ELSE 

DONE  =  .T. 

ENDIF 

*  vvvvvwvvvvv  #4.  RELATIONAL  OPERATOR  CHECK  vvvvvvvvvvvv  * 

GOOD_RO  =  .T. 

TEMP_LOOP  =  .T. 

DO  WHILE  (TEMP_LOOP) 

IF  (OlA  o'  ') 

DO  RO_CHK  WITH  OlA 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (OIB  o'  ') 

DO  RO_CHK  WITH  OIB 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (03A  o'  ') 

DO  RO_CHK  WITH  03A 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (03B  o'  ') 

DO  RO_CHK  WITH  03B 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (04  o'  ') 

DO  R0_CHK  WITH  04 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (05  o'  ') 


DO  RO_CHK  WITH  05 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (06  o'  ') 

DO  R0_CHK  WITH  06 
IF  (.NOT.  G00D_R0) 

EXIT 

ENDIF 

ENDIF 

IF  (07  o'  ') 

DO  R0_CHK  WITH  07 
IF  (.NOT.  G00D_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (08  o'  ') 

DO  R0_CHK  WITH  08 
IF  (.NOT.  G00D_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (09  o'  ') 

DO  R0_CHK  WITH  09 
IF  (.NOT.  G00D_R0) 

EXIT 

ENDIF 

ENDIF 

TEMP_L00P  =  .F. 

ENDDO 

IF  (.NOT.  G00D_R0) 

(§  23,  0 
?  CHR(7) 

M.CHOICE  =  .F. 

(3  23,  4  SAY  'INVALID  RELATIONAL  OPERATOR.  WOULD  YOU  LIKE  TO' 
+  '  TRY  AGAIN  [Y/N)?  ’  GET  M_CH0ICE  PICTURE  'Y' 
CLEAR  TYPEAHEAD 
READ 

*  Give  the  user  the  option  of  either  returning  to  the  * 

*  query  input  screen  or  termineting  the  query  function.  * 


IF  (M_CH0ICE) 

@  23,  0 
DONE  =  .F. 

ELSE 

ST0P_L00P  =  .T. 

EXIT 

ENDIF 

ENDIF 

IF  ((F2  o  'T').AND.(F2  o  'N').AND.(F2  <>  'P').AND.(F2  <>  '  ')) 
(3  23,  0 
?  CHR(7) 

M_CH0ICE  =  .F. 


(3  23,  4  SAY  'INVALID  SCHOLARSHIP  CATEGORY.  WOULD  YOU  LIKE  TO*  ; 

+  '  TRY  AGAIN  [Y/N]?  '  GET  M_CHOICE  PICTURE  'Y' 

CLEAR  TYPEAHEAD 
READ 

*  Give  the  user  the  option  of  returning  to  correct  their  * 

*  invalid  entry  or  to  terminate  the  query  function.  * 

IF  (M_CHOICE) 

@  23,  0 
DONE  =  .F. 

ELSE 

STOP_LOOP  =  .T. 

EXIT 

ENDIF 

ENDIF 

ENDDO 

*  Check  to  see  if  query  termination  condition  has  been  previously  * 

*  set  to  ' true ' .  * 

IF  (STOP_LOOP) 

EXIT 

ELSE 

*  vvvvvvvvvvvv  #5.  BUILD  QUERY  OUTPUT  FORMAT  vvvvvvvvvvvv  * 

HDRIA  =  ' ' 

HDRIB  =  ' ' 

DATA1_S  =  ' ' 

DATAl.L  =  '  ' 

HDRIA  =  'First  Last  AS  Cat  GPA  SAT  '; 

+  '  AFOQT 

HDRIB  =  'Name  Name  Class  Type  Cum  Cum  ' ; 

+  '  Quan  Verb  Pil  Nav' 

DATA1_S  =  "F_NAME+S2+L_NAME+S2+STR(AS_CLASS, 1)+S6+CAT_TYPE+S5"; 

+  "+STR ( CUM_GPA ,4,2) +S2+STR( S AT_CUM , 4 ) +S  2+STR ( AFOQT_QUAN , 2 ) +S5 " ; 

+  "+STR ( AFOQT_VERB , 2 ) +S4+STR( AFOQT_PLT , 2 ) +S  3+STR ( AFOQT_NAV , 2 )  + '  '" 
SEP_LINE  =  REPLICATE( ,80) 

IF  (Q0_SELECT  =  'j') 


HDRIA 

=  HDRIA  +  ' 
+  '  GPA' 

AFOQT 

ACT 

WPSS 

AS  Class 

FY  '  ; 

HDRIB 

=  HDRIB  +  ' 

AcAp  Date 

Cum 

Score 

Rank 

Rating' ; 

+  '  Sem' 

DATA1_L  =  "S2+STR(AFOQT_AA,2)+S4+DTOC(AFOQT_DATE)+S2"; 

+  "+STR(ACT_CUM, 2)+S3+STR(WPSS, 6, 2)+S3+STR(AS_RNK_POS, 3)+' / '" ; 
+  "+CLAS_NUM+S4+STR( FY_RTNG , 2 ) +S4+STR ( SEM_GPA ,4,2)" 

SEP_LINE  =  SEP_LINE  +  RRPLICATE( , 52) 

ENDIF 

*  vvvvvvvvvvvvvv  //6.  BUILD  FILTER  STRING  vvvvvvvvvvvvvv  * 

FILT_STR  =  ' ' 

IF  (LEN(LTRIM(F1A))  >  0) 


FILT_STR  =  'AS_CLASS'  +  OlA  +  FIA 
END  IF 

IF  (LEN(LTRIM(F1B))  >  0  .AND.  (OlA  <>  OIB)  .AND.  (FIA  <>  FIB)) 
IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND. AS_CLASS '  +  OIB  +  FIB 
ELSE 

FILT_STR  =  'AS_CLASS'  +  OIB  +  FIB 
ENDIF 
END  IF 

IF  (LEN(LTRIM(F2))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

IF  (LTRIM(F2)  =  'T') 

FILT_STR  =  FILT_STR  +  ". AND. (CAT_TYPE='N' .0R.CAT_TYPE='M"' 
+  ".0R.CAT_TYPE=’2’ )" 

ELSE 

IF  (LTRIM(F2)  =  'N') 

FILT_STR  =  FILT_STR  +  " . AND. CAT_TYPE=' 3 
ELSE 

FILT_STR  =  FILT_STR  +  ” . AND . CAT_TYPE= ' P 
ENDIF 
ENDIF 


ELSE 

IF  (LTRIM(F2)  =  'T') 

FILT_STR  =  '‘(CAT_TYPE='N' .OR.CAT_TYPE='M' .0R.CAT_TYPE='2' ) 
ELSE 

IF  (LTRIM(F2)  =  'N') 

FILT_STR  =  ''CAT_TYPE=’ 3"' 

ELSE 


FILT  STR  =  "CAT  TYPE='P”' 


ENDIF 

ENDIF 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F3A))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . L_NAME '  +  03A  +  "  +  F3A  + 

ELSE 

FILT_STR  =  'L_NAME’  +  03A  +  +  F3A  +  " 

ENDIF 

ENDIF 

IF  (LF.N(LTRIM(F3B))  >  0  .AND.  (03A  ->  03B)  .AND.  (F3A  <>  F3B)) 
IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . L_NAME '  +  03B  +  "  +  F3B  +  " 

ELSE 

FILT_STR  =  'L_NAME'  +  03B  +  +  F3B  + 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(TRIM(F4)))  >  0)  .AND.  (LTRTM(TR1M(F4))  <>  '.') 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ’ . AND. CUM_0PA '  +  04  +  F4 
ELSE 

FILT_STR  ^  'CUM_GPA'  O':  !  F4 
ENDIF 
ENDIF 

IF  (LEN(LTRIM(F5))  >  0) 
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IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . AFOQT_QUAN '  +  05  +  F5 
ELSE 

FILT_STR  =  'AF0QT_QUAN'  +  05  +  F5 
END  IF 
ENDIF 

IF  (LEN(LTRIM(F6))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND. AF0QT_VERB '  +  06  +  F6 
ELSE 

FILT_STR  =  'AF0QT_VERB’  +  06  +  F6 
ENDIF 
ENDIF 

IF  (LEN(LTRIM(F7))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND. AF0QT_PLT'  +  07  +  F7 
ELSE 

FILT_S:’^  =  'AF0QT_PLT'  +  07  +  F7 
ENDIF 
ENDIF 

IF  (LEN(LrRIM(F8))  >  0) 

IF  (LENfFILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . AF0QT_NAV '  +  08  +  F8 
ELSE 

FILT_STR  =  'AF0QT_NAV’  +  08  +  F8 
ENDIF 
ENDIF 

IF  (LEN(L'rRIM(F9))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ’ . AND. SAT_CUM’  +  09  +  F9 
ELSE 

FILT_STR  =  'SAT.CUM'  +  09  +  F9 
ENDIF 
ENDIF 
DONE  =  .T. 

*  vvvvvvvvvv  //7 .  ACCESS  DATABASE  &  DIRECT  OUTPUT  vvvvvvvvvv  * 

IF  (LEN(FILT_STR)  >  0) 

(§  23,  0 

(9  23,14  SAY  'SEARCHING  DATABASE  FILES  FOR  CORRESPONDING  RECORD(S)' 
SELECT  1 

IF  (.NOT.  FILE(M_NDX_F)) 

INDEX  ON  &M_NDX_STR  TO  &M_NDX 
ENDIF 

SET  INDEX  TO  &M_NDX 
SET  FILTER  TO  &FILT_STR 
GOTO  TOP 
DO  CASE 

*  If  none  of  the  database  records  meet  all  the  input  * 

*  constraints,  give  the  user  the  option  to  try  again  * 

*  or  to  terminate  the  query.  * 


CASE  (EOFO) 


4  « 

( 


DO  ERR_NF 
IF  (M_CHOICE) 

DONE  =  .F. 

LOOP 
ELSE 
EXIT 
END  IF 

*  If  some  database  records  meet  the  constraints,  ini-  * 

*  tialize  the  print  environment  and  perform  print  loop  * 

*  until  all  records  are  printed.  * 

CASE  (.NOT.  EOFO) 

IF  QO_SELECT  <>  'H' 

SET  PRINT  ON 

SET  DEVICE  TO  PRINT 

IF  QO_SELECT  =  'j' 

@  0,  1  SAY  CHR(27)  +  CHR(15) 

ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(77) 

ENDIF 

MAX_LINES  =  66 
ELSE 

MAX.LINES  =  23 
ENDIF 

IF  (QO_SELECT  <>  'j') 

SPACER  =  SPACE(15) 

ELSE 

SPACER  =  SPACE (46) 

ENDIF 

CLEAR 

(a  0,  0  SAY  SPACER  +  'SCHOLARSHIP  CANDIDATES/ACADEMIC' ; 

+  '  PERFORMANCE  REPORT' 

@  1,  0 

FIRST_TIME  =  .T. 

DISP_LINE  =  2 

*  vvvvvvvvvv  #8.  DATABASF  RECORD  LOOP  vvvvvvvwv  * 
DO  WHILE  (.NOT.  EOF()) 

IF  ((DISP_LINE  >  0)  .AND.  (QO_SELECT  <>  'H')) 

IF  (.NOT.  FIRST_TIME) 

EJECT 

ENDIF 

ENDIF 

IF  (FIRST_TIME) 

FIRST_TIME  =  .F. 

ELSE 

DISP_LINE  =  0 
CLEAR 
ENDIF 

*  vvvvvvvvvvvvv  (/9 .  PAGING  LOOP  vvvvvvvvvvvvv  * 
DO  WHILE  ((DISP_LINE  <  MAX_LTNES)  .AND.  (.NOT.  EOF())) 


REC_NUM  =  RECNOO 
IF  (DISP_LINE  <=  3) 

@  DISP_LINE,  0  SAY  HDRIA 
@  DISP_LINE  +  1,  0  SAY  HDRIB 
IF  (QO_SELECT  <>  'H') 

@  DISP_LINE  +1,  0  SAY  SEP_LINE 
ENDIF 

DISP_LINE  =  DISP_LINE  +  2 
ENDIF 

(a  DISP_LINE,  0  SAY  &DATA1_S 
IF  (QO.SELECT  =  'J') 

CLAS_VAL  =  AS_CLASS 
SELECT  2 
SEEK  CLAS_VAL 
IF  (.NOT.  EOFO) 

CLAS_NUM  =  STR(AS_CL_T0T,3) 

ELSE 

CLAS_NUM  =  '  ?  ' 

ENDIF 
SELECT  1 
GOTO  REC_NUM 

(3  DISP_LINE,  80  SAY  &DATA1_L 
ENDIF 

DISP_LINE  =  DISP_LINE  +  2 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  * 

*  next  record  which  meets  the  Input  constraints.* 

SKIP 

ENDDO 

*  If  the  output  media  is  the  screen,  Issue  the  user* 

*  paging  prompt.  * 

IF  (Q0_SELECT  =  ’H’) 

@  23,  0  SAY  'PRESS  ANY  KEY  TO  CONTINUE' 

CLEAR  TYPEAHEAD 
WAIT  '  ' 

ENDIF 

ENDDO 

IF  (Q0_SELECT  <>  'H') 

@  DISP_LINE  +  1,  0  SAY  CHR(IO) 

EJECT 

IF  (Q0_SELECT  =  ' J' ) 

(a  0,  1  SAY  CHR(18) 

ELSE 

(a  0,  1  SAY  CHR(27)  +  CHR(80) 

ENDIF 

SET  PRINT  OFF 
ENDIF 

SET  DEVICE  TO  SCREEN 
SET  FILTER  TO 

ENDCASE 


If  the  user  falls  to  enter  any  data  in  the  input  fields. 


* 


* 

* 

* 


issue  a  prompt  for  them  to  please  enter  data  (If  they  had  * 
intended  to  cancel  the  query,  they  should  not  have  gotten  * 
this  far  in  the  procedure).  * 


ELSE 

(§  23,  0 
?  CHR(7) 

@  23,  4  SAY  'PLEASE  ENTER  DATA.  PRESS  ANY  KEY  TO  CONTINUE.’ 
CLEAR  TYPEAHEAD 
WAIT  ' ' 

0  23,  0 
DONE  =  -F. 

END  IF 
ENDIF 
ENDDO 
CLEAR 

*  If  the  user  has  not  previously  entered  a  response  to  terminate  the  * 

*  query  (M_CHOICE  would  be  "false"),  then  give  them  the  opportunity  * 

*  to  do  another  query  or  terminate  the  function.  * 

IF  (M_CHOICE) 

DO  RCIS_HDR 
DO  M_PROMPT 
ENDIF 
ENDDO 

*  Close  the  database  files  used  in  this  query.  * 

SELECT  2 
USE 

SELECT  1 
USE 

F_PARA  =  STUFF(F_PARA,1,1,'C') 

ON  ERROR 

'V 

RETURN 
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DCFY_QRY 


‘SiS 

•I? 


*  SUMMARY: 

*  The  DCFY_QRY  procedure  provides  the  interface  for  the  user  to  per- 

*  form  ad  hoc  queries  on  cadet  data  which  is  related  to  specified 

*  cadet  ratings  for  all  cadets  being  commissioned  within  a  given 

*  fiscal  year  or  range  of  fiscal  years. 

* 


PROCEDURE  DCFY_QRY 

•k 

PRIVATE  SPACER 
PRIVATE  FTC 

* 

ON  ERROR  DO  DB3_Q_ERR  WITH  ERROR(),  MESSAGEO 
CLEAR 

M_CHOICE  =  .T. 

*  vvvvvvvvvvvvvvvvvvvv  #1.  MAIN  OUTER  LOOP  vvvvvvvvvvvvvvvvvv  * 

DO  WHILE  (M_CHOICE) 

*  Initialize  operator  and  constraint  fields.  * 

DONE  =  .F. 

OlA  =  '  ' 

FIA  =  '  ' 

OIB  =  '  ' 

FIB  =  '  ' 

02A  =  '  ' 

F2A  =  '  ' 

02B  =  '  ' 

F2B  =  '  ' 

F3  =  ' 

04A  =  '  ' 

F4A  =  '  ' 

04B  =  '  ' 

F4B  =  '  ' 

05A  =  '  ' 

F5A  =  '  ' 

05B  =  ’  ' 

FSB  =  '  ' 

*  vvvvvvvvvvvvvvvvv  #2.  INTERMEDIATE  SCREEN  LOOP  vvvvvvvvvvvvvvvvv 

DO  WHILE  (.NOT.  DONE) 

CLEAR 

DO  HELP_SCRN 
(?  5,  0  TO  15,79 

(a  5,17  SAY  '  DATE  OF  COMMISSIONING  (DOC)  FISCAL  YEAR  QUERY  ' 

@  7 , 1 1  SAY  ' DOC ' 


>.lr  jTf , 


( 


(a  8,11  SAY  'Fiscal  Year' 

(9  10,13  SAY  'Last  Name' 

(a  13,18  SAY  'SSAN' 

(a  7.52  SAY  'Fiscal  Year' 

@  8,52  SAY  'Rating' 

(3  10,50  SAY  'Det  Commander' 

@  11,50  SAY  'Rating' 

*  vvvvvvvvvvvvvvvv  #3.  INTERMEDIATF,  INPUT  LOOP  vvvvvvvvvvvvvvvv  * 

DO  WHILE  (.NOT.  DONE) 

@  7,23  GET  OlA  PICTURE  '!!' 

@  7,26  GET  FIA  PICTURE  *99' 

@  8,23  GET  OIB  PICTURE  '!!' 

@  8,26  GET  FIB  PICTURE  '99' 

@  10,23  GET  02A  PICTURE  ’!!' 

(a  10,26  GET  F2A  PICTURE  '  5 !!!!!!!!!!!!!!  ' 

(3  11,23  GET  02B  PICTURE  ’!!’ 

@  11,26  GET  F2B  PICTURE  '!!!!!!!!!!'.!!!!' 

@  13,26  GET  F3  PICTURE  '@R  999-99-9999' 

(3  7,64  GET  04A  PICTURE  '!!' 

@  7,67  GET  F4A  PICTURE  '99' 

@  8,64  GET  04B  PICTURE  ’!!' 

@  8,67  GET  F4B  PICTURE  *99' 

(a  10,64  GET  05A  PICTURE  '!!' 

(a  10,67  GET  F5A  PICTURE  '9' 

(a  11,64  GET  05B  PICTURE  '!!' 

(a  11,67  GET  FSB  PICTURE  '9' 

*  Read  query  screen  Inputs  and  prepare  to  process  them.  * 

READ 
@  23,  0 
(a  23,19  SAY  ; 

"DO  YOU  WANT  TO  CANCEL  THIS  QUERY  [Y/N]?  "  GET  DONE  PICTURE  'Y' 
CLEAR  TYPEAHEAD 
READ 

*  If  the  user  chooses  to  cancel  the  query,  set  the  required  * 

*  flags  to  terminate  all  procedure  loops.  * 

IF  (DONE) 

STOP.LOOP  =  .T. 

M_CH0ICE  =  .F. 

EXIT 

ELSE 

STOP_LOOP  =  .F. 

ENDIF 

@  23,  0 
@  23,19  SAY  ; 

"DO  YOU  WANT  TO  MAKE  ANY  CHANGES  fY/NJ?  "  GET  DONE  PICTURE  'Y' 
CLEAR  TYPEAHEAD 
READ 


* 

* 


*  If  the  user  wants  to  change  their  inputs,  set  DONE  flag  to 

*  flase  and  repeat  the  current  loop. 

IF  (DONE) 

(a  23,  0 
DONE  =  .F. 

LOOP 

ELSE 

DONE  =  .T. 

END  IF 

*  vvvwvvvvwv  #4.  RELATIONAL  OPERATOR  CHECK  vvvvvvvvvvvv  * 

GOOD_RO  =  .T. 

TEMP_LOOP  =  .T. 

DO  WHILE  (TEMP_LOOP) 

IF  (OlA  <>  '  ’) 

DO  RO_CHK  WITH  OlA 
IF  (.NOT.  GOOD_RO) 

EXIT 
END  IF 
ENDIF 

IF  (OIB  o'  ') 

DO  RO_CHK  WITH  OIB 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (02A  o'  ') 

DO  RO_CHK  WITH  02A 
IF  (.NOT.  GOOD.RO) 

EXIT 

ENDIF 

ENDIF 

IF  (02B  o’  ') 

DO  RO_CHK  WITH  02B 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (04A  o'  ') 

DO  RO_CHK  WITH  04A 
IF  (.NOT.  G00D_R0) 

EXIT 

ENDIF 

ENDIF 


IF  (04B  o'  ') 

DO  RO_CHK  WITH  04B 
IF  (.NOT.  G00D_R0) 
EXIT 
ENDIF 
ENDIF 

IF  (05A  o'  ') 

DO  RO_CHK  WITH  05A 
IF  (.NOT.  GOOD_RO) 


""m  •Tm  •'  m  ^  "i  M  ••  m  "  *'*.•*-*.“  m  * 


mm 


EXIT 
ENDIF 
END  IF 

IF  (05B  o'  ') 

DO  RO_CHK  WITH  05B 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

TEMP_LOOP  =  .F. 

ENDDO 

IF  (.NOT.  GOOD_RO) 

(§  23,  0 
?  CHR(7) 

M_CHOICE  =  .F. 

@  23,  4  SAY  'INVALID  RELATIONAL  OPERATOR.  WOULD  YOU  LIKE  TO'  ; 

+  '  TRY  AGAIN  [Y/N]?  '  GET  M_CHOICE  PICTURE  'Y' 

CLEAR  TYPEAHEAD 
READ 

*  Give  the  user  the  option  of  either  returning  to  the  * 

*  query  Input  screen  or  terminating  the  query  function.  * 

IF  (M_CHOICE) 

@  23,  0 
DONE  =  .F. 

ELSE 

STOP_LOOP  =  .T. 

EXIT 

ENDIF 

ENDIF 

ENDDO 

*  Check  to  see  if  query  termination  condition  has  been  previously  * 

*  set  to  ' true' .  * 

IF  (STOP_LOOP) 

EXIT 

ELSE 

*  vvvvvvvvvvvv  #5.  BUILD  QUERY  OUTPUT  FORMAT  vvvvvvvvvvvv  * 


HDRIA  =  ' ' 

HDRIB  =  ' ' 

DATA1_S  =  ' ' 

DATA1_L  =  ' ' 

HDRIA  =  'First  Last  FY  DC  AS  Class'; 

+  '  AS  Comm  ' 

HDRIB  =  'Name  Name  Rating  Rating  Rank  '; 

+  '  Class  Date  ' 

DATA1_S  =  "F_NAME+S2+L_NAME+S4+STR(FY_RTNG,2)+S6+STR(DC_RTNG, 1)+S5"; 

+  "+STR(AS_RNK_POS,3)+'/'+CLAS_NUM+S5+STR(AS_CLASS, 1)+S5"; 

+  "+DT0C(C0M_DATE)+S3" 

SEP_LINE  =  REPLICATE(’_’ ,80) 


•iCW 


mmmm 
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mwm 


IF  (QO_SELECT  =  'j') 


HDRIA 

+ 

HDRIA  +  'Grad 
'  FT' 

Cat 

WPSS 

GPA 

SAT 

FT  '  ; 

HDRIB 

+ 

HDRIB  +  'Date 
'  Rating' 

Type 

Score 

Cum 

Cum 

Comp' ; 

DATA1_L  =  "DT0C(GRAD_DATE)+S3+CAT_TYPE+S4+STR(WPSS,6,2)+S3’’; 
+  "+STR( CUM_GPA , 4 , 2 ) +S  3+STR ( SAT_CUM , 4 ) +S4" ; 

+  "+FTC+S3+STR(FT_RTNG,6,2)" 

SEP_LINE  =  SEP_I.TNE  +  REPLICATE( ,52) 

END  IF 


*  vvvvvvvvvvvvvv  #6.  BUILD  FILTER  STRING  vvvvvvvvvvvvvv 


FILT_STR  =  ' ' 

IF  (LEN(LTRIM(F1A))  >  0) 

FILT_STR  =  'YEAR(COM_DATE+92)'  +  OlA  +  '19*  +  FIA 
ENDIF 

IF  (LEN(LTRIM(F1B))  >  0  .AND.  (OlA  <>  OIB)  .AND.  (FIA  <>  FIB)) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND. YEAR(COM_DATE+92) '  +  OIB  +  'l9'  +  FIB 
ELSE 

FILT_STR  =  'YEAR(COM_DATE+92)'  +  OIB  +  '19'  +  FIB 
ENDIF 
ENDIF 

IF  (LEN(LTRIM(F2A))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . L_NAME '  +  02A  +  +  F2A  + 

ELSE 

FILT_STR  =  'L_NAME'  +  02A  +  " +  F2A  +  " 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F2B))  >  0  .AND.  (02A  <>  02B)  .AND.  (F2A  <>  F2B)) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ’ . AND . L_NAME '  +  02B  +  +  F2B  +  " 

ELSE 

FILT_STR  =  'L_NAME’  +  02B  +  "  +  F2B  +  " 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F3))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '.AND.SSAN  ='  +  +  F3  + 

ELSE 


FILT_STR  =  'SSAN  ='  +  +  F3  + 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F4A))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . FY_RTNG '  +  04A  +  F4A 
ELSE 

FILT_STR  =  'FY_RTNG’  +  04A  +  F4A 
ENDIF 
ENDIF 

IF  (LEN(LTRIM(F4B))  >  0  .AND.  (04A  <>  04B)  .AND.  (F4A  <>  F4B)) 
IF  (LEN(FILT_STR)  >  0) 

FILT  STR  =  FILT_STR  +  ' . AND . FY_RTNG '  +  04B  +  F4B 
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ELSE 

FILT_STR  =  'FY_RTNG'  +  04B  +  F4B 
ENDIF 
END  IF 

IF  (LEN(LTRIM(F5A))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . DC_RTNG '  +  05A  +  F5A 
ELSE 

FILT_STR  =  'DC_RTNG'  05A  +  F5A 
ENDIF 
ENDIF 

IF  (LEN(LTRIM(F5B))  >  0  .AND.  (05A  <>  05B)  .AND.  (F5A  <>  F5B)) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . DC_RTNG '  +  05B  +  FSB 
ELSE 

FILT_STR  =  'DC_RTNG’  +  05B  +  FSB 
ENDIF 
ENDIF 
DONE  =  .T. 

*  vvvvvvvvvv  #7.  ACCESS  DATABASE  &  DIRECT  OUTPUT  vvvvvvvvvv  * 

IF  (LEN(FILT_STR)  >  0) 

(a  23,  0 

@  23,14  SAY  'SEARCHING  DATABASE  FILES  FOR  CORRESPONDING  RECORD(S)' 
SELECT  1 

IF  (.NOT.  FILE(M_NDX_F)) 

INDEX  ON  &M_NDX_STR  TO  &M_NDX 
ENDIF 

SET  INDEX  TO  &M_NDX 
SET  FILTER  TO  &FILT_STR 
GOTO  TOP 
DO  CASE 

*  If  none  of  the  database  records  meet  all  the  Input  * 

*  constraints,  give  the  tiser  the  option  to  try  again  * 

*  or  to  terminate  the  query.  * 

CASE  (EOFO) 

DO  ERR_NF 
IF  (M_CHOICE) 

DONE  =  .F. 

LOOP 

ELSE 

EXIT 

ENDIF 

*  If  some  database  records  meet  the  constraints,  ini-  * 

*  tialize  the  print  environment  and  perform  print  loop  * 

*  until  all  records  are  printed.  * 

CASE  (.NOT.  EOFO) 

IF  QO_SELECT  <>  'H' 

SET  PRINT  ON 

SET  DEVICE  TO  PRINT 


IF  QO_SELECT  =  'J' 

@  0.  1  SAY  CHR(27)  +  CHR(15) 

ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(77) 

ENDIF 

MAX_LINES  =  66 
ELSE 

MAX_LINES  =  23 
ENDIF 

IF  (QO_SELECT  <>  'j*) 

SPACER  =  SPACE(17) 

ELSE 

SPACER  =  SPACE (48) 

ENDIF 

CLEAR 

@  0,  0  SAY  SPACER  +  'DATE  OF  COMMISSIONING  (DOC)  FISCAL' 

+  '  YEAR  REPORT' 

@  1,  0 

FIRST_TIME  =  .T. 

DISP_LINE  =  2 

*  vvvvvvvvvv  #8.  DATABASE  RECORD  LOOP  vvvvvvvvvv  * 
DO  WHILE  (.NOT.  EOF()) 

IF  ((DISP_LINE  >0)  .AND.  (QO_SELECT  <>  'H')) 

IF  (.NOT.  FIRST_TIME) 

EJECT 

ENDIF 

ENDIF 

IF  (FIRST.TIME) 

FIRST_TIME  =  .F. 

ELSE 

DISP.LINE  =  0 
CLEAR 
ENDIF 

*  vvvvvvvvvvvvv  #9.  PAGING  LOOP  vvvvvvvvvvvvv  * 

DO  WHILE  ((DISP_LINE  <  MAX_LINES)  .AND.  (.NOT.  E0F())) 
REC.NUM  =  RECNOO 
IF  (DISP_LINE  <=  3) 

(§  DISP_LINE,  0  SAY  HDRIA 
@  DISP_LINE  +  1,  0  SAY  HDRIB 
IF  (Q0_SELECT  <>  'H') 

(a  DISP_LTNE  +  1,  0  SAY  SEP_LTNE 
ENDIF 

DISP_LINE  =  DISP_LINE  +  2 
ENDIF 
FTC  =  'N' 

IF  FT_COMP 
FTC  =  'y' 

ENDIF 

CLAS_VAL  =  AS_CLASS 
SELECT  2 
SEEK  CLAS  VAL 


\>.-v 
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IF  (.NOT.  EOFO) 

CLAS_NUM  =  STR(AS_CL_T0T,3) 
ELSE 


CLAS_NUM  =  '  ?  ’ 


END  IF 
SELECT  1 
GOTO  REC_NUM 

@  DISP_LINE,  0  SAY  &DATA1_S 
IF  (QO_SELECT  =  'j') 

@  DISP_LINE,  80  SAY  &DATA1_L 
ENDIF 

DISP  LINE  =  DISP  LINE  +  2 


*  Issue  dBASE  III  PLUS  command  to  go  to  the  * 

*  next  record  which  meets  the  input  constraints.* 


SKIP 

ENDDO 


*  If  the  output  media  is  the  screen,  issue  the  user* 

*  paging  prompt .  * 


IF  (Q0_SELECT  =  'H') 

@  23,  0  SAY  'PRESS  ANY  KEY  TO  CONTINUE' 
CLEAR  TYPEAHEAD 
WAIT  " 

ENDIF 

ENDDO 

IF  (Q0_SELECT  <>  'H') 

@  DISP_LINE  +1,  0  SAY  CHR(IO) 

EJECT 

IF  (QO.SELECT  =  'j') 

@  0,  1  SAY  CHR(18) 

ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(80) 

ENDIF 

SET  PRINT  OFF 
ENDIF 

SET  DEVICE  TO  SCREEN 
SET  FILTER  TO 


ENDCASE 


*  If  the  user  fails  to  enter  any  data  in  the  input  fields, 

*  issue  a  prompt  for  them  to  please  enter  data  (if  they  had 

*  intended  to  cancel  tlie  query,  they  should  not  have  gotten 

*  this  far  in  the  procedure). 


ELSE 

(a  23,  0 
?  CHR(7) 

(a  23,  4  SAY  'PLEASE  ENTER  DATA. 
CLEAR  TYPEAHEAD 
WAIT  ' ' 

(a  23,  0 
DONE  =  .F. 


PRESS  ANY  KEY  TO  CONTINUE.' 


END  IF 
END  IF 
ENDDO 
CLEAR 

*  If  the  user  has  not  previously  entered  a  response  to  terminate  the  * 

*  query  (M_CHOICE  would  be  "false"),  then  give  them  the  opportunity  * 

*  to  do  another  query  or  terminate  the  function.  * 

IF  (M_CHOICE) 

DO  RCIS_HDR 
DO  M_PROMPT 
ENDIF 
ENDDO 

*  Close  the  database  files  used  in  this  query.  * 

SELECT  2 
USE 

SELECT  1 
USE 

F_PARA  =  STUFF(F_PARA, 1, 1, 'C' ) 

ON  ERROR 

* 

RETURN 


CLAS_QRY 


*  SUMMARY: 

*  The  CLAS_QRY  procedure  provides  the  interface  for  the  user  to  per- 

*  form  ad  hoc  queries  on  general  cadet  data  which  can  be  grouped  by 

*  AS_GLASS,  CAT_TYPE  and  PC_STATUS. 

* 


PROCEDURE  CLAS_QRY 
* 

PRIVATE  SPACER 
PRIVATE  MRM 
PRIVATE  MRE 
PRIVATE  MRF 
PRIVATE  WRK 

ON  ERROR  DO  DB3_Q_ERR  WITH  ERROR( ) ,  MESSAGE() 

CLEAR 

M_CHOICE  =  .T. 

*  vvvvvvvvvvvvvvvvvvvv  #1-  MAIN  OUTER  LOOP  vvvvvvvvvvvvvvvvvv  * 


DO  WHILE  (M_CHOICE) 

*  Initialize  operator  and  constraint  fields.  * 


DONE  =  .F. 
OlA  =  '  ' 

FIA  =  ’  ' 
OIB  =  '  ' 

FIB  =  '  ' 
F2  =  ’  ' 
F3  =  '  ' 
04A  =  '  ' 

F4A  =  ' 

04B  =  '  ' 

F4B  =  ' 

F5  =  ' 


*  vvvvvvvvvvvvvvvvv  iH.  INTERMEDIATE  SCREEN  LOOP  vvvvvvvvvvvvvvvvv 

DO  WHILE  (.NOT.  DONE) 

CLEAR 

DO  HELP_SCRN 
(9  1,  0  TO  ’5,79 

(9  1,17  SAY  AIR  SCIENCE  CLASS  GENERAL  INFORMATION  QUERY  ' 

@  3,28  SAY  'AS  Class' 

@  6,23  SAY  'Category  Type' 

@  8,16  SAY  'Pursuing/Conditional' 

(9  10,27  SAY  'Last  Name' 

(9  13,32  SAY  'SSAN' 


*  vvvvvvvvvvvvvvvv  INTERMEDIATE  INPUT  IiDOP  vvvvvvvvvvvvvvvv 


DO  WHILE  ( 
@  3,37 

@  3,40 

(3  4,37 

(9  4,40 

@  6,40 

@  8,40 

(§  10,37 
@  10,40 
(3  n,37 
@  11,40 
@  13,40 


NOT 

DONE) 

GET 

OlA 

PICTURE 

'  !  !  ' 

GET 

FIA 

PICTURE 

*9' 

GET 

OIB 

PICTURE 

'  !  !  ' 

GET 

FIB 

PICTURE 

'9* 

GET 

F2 

PICTURE 

1  1  1 

GET 

F3 

PICTURE 

t  1  f 

GET 

04A 

PICTURE 

'  !  !  ' 

GET 

F4A 

PICTURE 

'  M  1  M  f  M  1  1  1  1  1  !  1 

GET 

04B 

PICTURE 

'  !  !  ' 

GET 

F4B 

PICTURE 

'  I  1  f  1 1  1  I  1 1  I  1  I  1  1  I 

GET 

F5 

PICTURE 

'@R  999-99-9999' 

*  Read  query  screen  inputs  and  prepare  to  process  them.  * 

READ 

(3  23,  0 

(9  23,19  SAY  ; 

"DO  YOU  WANT  TO  CANCEL  THIS  QUERY  [Y/N]?  "  GET  DONE  PICTURE  'Y' 
CLEAR  TYPE AHEAD 
READ 


K.-' 

“v-.V" 


*  If  the  user  chooses  to  cancel  the  qviery,  set  the  required  * 

*  flags  to  terminate  all  procedure  loops.  * 


IF  (DONE) 

ST0P_L00P  =  .T. 

M_CH0ICE  =  .F. 

EXIT 

ELSE 

ST0P_L00P  =  .F. 

ENDIF 
@  23,  0 
@  23,19  SAY  ; 

"DO  YOU  WANT  TO  MAKE  ANY  CHANGES  [Y/N]?  "  GET  DONE  PICTURE  'Y' 
CLEAR  TYPEAHEAD 
READ 

*  If  the  user  wants  to  change  their  inputs,  set  DONE  flag  to  * 

*  flase  and  repeat  the  current  loop.  * 

IF  (DONE) 

@  23,  0 
DONE  =  .F. 

LOOP 

ELSE 

DONE  =  .T. 

ENDIF 


*  vvvvvvvvvvvv  #4.  RELATIONAL  OPERATOR  CHECK  vvvvvvvvvvvv  * 
GOOD  RO  =  .T. 


142 


miyi 


V.j 


TEMP_LOOP  =  .T. 

nn  WHILE  (TEMP_LOOP) 

IF  (OlA  o'  ' ) 

DO  RO_CHK  WITH  OlA 
IF  (.NOT.  GOOD_RO) 

EXIT 
END  IF 
END  IF 

IF  (OIB  o'  ') 

DO  RO_CHK  WITH  OIB 
IF  (.NOT.  GOOD_RO) 

EXIT 
ENDIF 
END  IF 

IF  (04A  o'  '  ) 

DO  R0_CHK  WITH  04A 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (04B  o'  ') 

DO  RO_CHK  WITH  04B 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

TEMP_LOOP  =  .F. 

ENDDO 

IF  (.NOT.  GOOD.RO) 

@  23,  0 
?  CHR(7) 

M_CHOICE  =  .F. 

@  23,  4  SAY  'INVALID  RELATIONAL  OPERATOR.  WOULD  YOU  LIKE  TO’  ; 

'  TRY  AGAIN  [Y/N]?  ’  GET  M_CHOICE  PICTURE  'Y' 

CLEAR  TYPEAHEAD 
READ 


*  Give  the  user  the  option  of  either  returning  to  the  * 

*  query  input  screen  or  terminating  the  query  function.  * 


IF  (M_CHOICE) 

@  23,  0 
DONE  =  .F. 

ELSE 

STOP_LOOP  =  .T. 
EXIT 
ENDIF 
ENDIF 
ENDDO 


*  Check  to  see  if  query  termination  condition  has  been  previously  * 

*  set  to  ' true ' .  * 


IF  (STOP_LOOP) 
EXIT 


143 


ELSE 


*  vvvvvvvvvvvv  #5.  BUILD  QUERY  OUTPUT  FORMAT  vvvvvvvvvvvv  * 

HDRIA  =  ' ' 

HDRIB  =  ' ' 

DATA1_S  =  ' ' 

DATA1_L  ='  " 

HDRIA  =  'First  Last  AS  Cat  Purs'; 

+  '  Schl  Min  Min  Min' 

HDRIB  =  'Name  Name  Class  Type  Major  Cond'; 

+  '  Type  Math  Eng  Frl' 

DATA1_S  =  "F_NAME+S2+L_NAME+S4+STR(AS_CLASS, 1)+S5+CAT_TYPE+S4+MAJ0R" ; 

+  "+S4+PC_STATUS+S4+STR(SCHLR_TYPE,3, 1)+S4+MRM+S5+MRE+S4+MRF+'  '" 
SEP_LINE  =  REPLICATE(’_' ,80) 

IF  (Q0_SELECT  =  'J') 

HDRIB  =  HDRIB  +  '  SSAN  Matric  Work  Corps  Auxiliaries' 

DATA1_L  =  "S2+TRANSF0RM(SSAN, '@R  999-99-9999' )+S3+MATRIC+S3+WRK"; 

+  "+S4+TRANSF0RM(C0RPS_AUX, '@R  ! ! 1 ! ! 1 ! ! 1 ! ! 1 M 1 ! ! 1 ! ! 1 ! ! ' )" 
SEP_LINE  =  SEP_LINE  +  REPLICATEC '_' ,57) 

END  IF 

*  vwvvvvvvvvvvv  #6.  BUILD  FILTER  STRING  vvvvvvvvvvvvvv  * 

FILT_STR  =  '  ' 

IF  (LEN(LTRIM(F1A))  >  0) 

FILT_STR  =  'AS_CLASS'  +  OlA  +  FI  A 
END  IF 

IF  (LEN(LTRIM(F1B))  >  0  .AND.  (OlA  <>  OIB)  .AND.  (FIA  <>  FIB)) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT.STR  +  ' . AND. AS_CLASS'  +  OIB  +  FIB 
ELSE 

FILT_STR  =  'AS_CLASS'  +  OIB  +  FIB 
ENDIF 
ENDIF 

IF  (LEN(LTRIM(F2))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . CAT_TYPE  ='  +  " +  F2  +  '"" 

ELSE 

FILT_STR  =  'CAT_TYPE  ='  +  +  F2  +  '"" 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F3))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '  .  AND .  PC_STATUS  ='  +  '""  +  F3  + 

ELSE 

FILT_STR  =  'PC_STATUS  ='  +  '""  +  F3  +  '"" 

ENDIF 

ENDIF 

IF  (LF.N(LTRIM(F4A))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '  .  AND .  L_NAMF. '  +  04A  +  '""  +  F4A  +  '"" 

ELSE 

FILT  STR  =  'L  NAME'  +  04A  +  '""  +  F4A  +  '"" 
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IF  (LEN(LTRIM(F4B))  >  0  .AND.  (04A  <>  04B)  .AND.  (F4A  <>  F4B)) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . L_NAME '  +  04B  +  +  F4B  +  " 

ELSE 

FILT_STR  =  'L_NAME'  +  04B  +  "  +  F4B  + 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F5))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '.AND.SSAN  ='  +  +  F5  + 

ELSE 

FILT_STR  =  'SSAN  ='  +  +  F5  + 

ENDIF 
ENDIF 
DONE  =  .T. 

*  vvvvvvvvvv  in  ■  ACCESS  DATABASE  &  DIRECT  OUTPUT  vvvvvvvvvv  * 

IF  (LEN(FILT_STR)  >  0) 

@  23,  0 

@  23,14  SAY  'SEARCHING  DATABASE  FILES  FOR  CORRESPONDING  RECORD(S)’ 
SELECT  1 

IF  (.NOT.  FILE(M_NDX_F)) 

INDEX  ON  &M_NDX_STR  TO  &M_NDX 
ENDIF 

SET  INDEX  TO  &M_NDX 
SET  FILTER  TO  &FILT_STR 
GOTO  TOP 
DO  CASE 

*  If  none  of  the  database  records  meet  all  the  input  * 

*  constraints,  give  the  user  the  option  to  try  again  * 

*  or  to  terminate  the  query.  * 

CASE  (EOFO) 

DO  ERR_NF 
IF  (M_CH0ICE) 

DONE  =  .F. 

LOOP 

ELSE 

EXIT 

ENDIF 

*  If  some  database  records  meet  the  constraints,  ini-  * 

*  tialize  the  print  environment  and  perform  print  loop  * 

*  until  all  records  are  printed.  * 

CASE  (.NOT.  EOFO) 

IF  Q0_SELECT  <>  'H' 

SET  PRINT  ON 

SET  DEVICE  TO  PRINT 

IF  Q0_SELECT  =  'j' 

@  0,  1  SAY  CHR(27)  +  CHR(15) 


m 


I  < 


iSWi 


ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(77) 

END  IF 

MAX_LINES  =  66 
ELSE 

MAX_LINES  =  23 
END  IF 

IF  (Q0_SELECT  <>  'j') 

SPACER  =  SPACE(18) 

ELSE 

SPACER  =  SPACE (49) 

ENDIF 

CLEAR 

@  0,  0  SAY  SPACER  +  'AIR  SCIENCE  CLASS  GENERAL'; 

+  '  INFORMATION  REPORT' 

@  1,  0 

FIRST_TIME  =  .T. 

DISP_LINE  =  2 

*  vvwvvvvvv  //8.  DATABASE  RECORD  LOOP  vvvvvvvvvv  * 
DO  WHILE  (.NOT.  EOF()) 

IF  ((DISP_LINE  >  0)  .AND.  (QO_SELECT  <>  'H')) 

IF  (.NOT.  FIRST_TIME) 

EJECT 

ENDIF 

ENDIF 

IF  (FIRST_TIME) 

FIRST_TIME  =  .F. 

ELSE 

DISP_LINE  =  0 
CLEAR 
ENDIF 

*  wvvvvvvvvvvv  #9.  PAGING  IiOOP  vvvvvvvvvvvvv  * 

DO  WHILE  ((DISP_LINE  <  MAX_LTNES)  .AND.  (.NOT.  EOF())) 
IF  (DISP_LINE  <=  3) 

@  DISP_LINE,  0  SAY  HDRIA 
@  DISP_LINE  +  1,  0  SAY  HDRIB 
IF  (QO_SELECT  <>  'H') 

@  DISP_LTNE  +1,0  SAY  SEP_LINE 
ENDIF 

DISP_LINE  =  DTSP_LTNF,  +  2 
ENDIF 
MRM  =  'N' 

MRE  =  'N' 

MRF  =  'N' 

IF  M_R_MATH 
MRM  =  'Y' 

ENDIF 

IF  M_R_ENGL 
MRE  =  'Y' 

ENDIF 

IF  M_R_FLAN 
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MRF  =  'Y' 

ENDIF 

(a  DISP_LINE,  0  SAY  &DATA1_S 
IF  (QO.SELECT  =  'j') 

WRK  =  'N' 

IF  WORK 
WRK  =  'Y' 

ENDIF 

(3  DISP_LINE,  80  SAY  SDATA1_L 
ENDIF 

DISP_LINE  =  DISP_LINE  +  2 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  * 

*  next  record  which  meets  the  input  constraints.* 

SKIP 

ENDDO 

*  If  the  output  media  is  the  screen,  issue  the  user* 

*  paging  prompt.  * 

IF  (Q0_SELECT  =  'H') 

@  23,  0  SAY  'PRESS  ANY  KEY  TO  CONTINUE’ 

CLEAR  TYPEAHEAD 
WAIT  " 

ENDIF 

ENDDO 

IF  (Q0_SELECT  <>  'H') 

@  DISP.LINE  +  1,  0  SAY  CHR(IO) 

EJECT 

IF  (QO.SELECT  =  'j') 

@  0,  1  SAY  CHR(18) 

ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(80) 

ENDIF 

SET  PRINT  OFF 
ENDIF 

SET  DEVICE  TO  SCREEN 
SET  FILTER  TO 

ENDCASE 

*  If  the  user  fails  to  enter  any  data  in  the  Input  fields,  * 

*  issue  a  prompt  for  them  to  please  enter  data  (if  they  had  * 

*  intended  to  cancel  the  query,  they  should  not  have  gotten  * 

*  this  far  in  the  procedure).  * 

ELSE 

@  23,  0 
?  CHR(7) 

@  23,  4  SAY  'PLEASE  ENTER  DATA.  PRESS  ANY  KEY  TO  CONTINUE.' 
CLEAR  TYPEAHEAD 
WAIT  ' ' 

(9  23,  0 
DONE  =  .F. 

ENDIF 


END  IF 
ENDDO 
CT.EAR 

*  If  the  user  has  not  previously  entered  a  response  to  terminate  the 

*  query  (M_CHOICE  would  be  "false”),  then  give  them  the  opportunity 

*  to  do  another  query  or  terminate  the  function. 

IF  (M_CHOICE) 

DO  RCIS_HDR 
DO  M_PROMPT 
END  IF 
ENDDO 

*  Close  the  database  files  used  in  this  query.  * 

SELECT  1 
USE 

F_PARA  =  STUFF( F_PARA , 1 , 1 , ' C ' ) 

ON  ERROR 

* 

RETURN 


* 

lV 


HRAX_QRY 


I 


* 

*  * 

*  SUMMARY:  * 

*  The  HRAX_QRY  procedure  provides  the  Interface  for  the  user  to  per-  * 

*  form  ad  hoc  queries  on  required  cadet  data  for  two-year  program  * 

*  candidates  and  additional  data  related  to  the  horizontal  axis.  * 

*  * 

* - * 


PROCLDURE  HRAX_URY 
* 

PRIVATE  ALT 
PRIVATE  SPACER 

* 

ON  ERROR  DO  DB3_CLERR  WITH  ERROR( ) ,  MESSAGE() 

CLEAR 

M_CHOICE  =  .T. 

*  vvvvvvvvvvvvvvvvvvvv  #1.  MAIN  OUTER  LOOP  vvvvvvvvvvvvvvvvvv  * 

DO  WHILE  (M_CHOICE) 

*  Initialize  operator  and  constraint  fields.  * 

DONE  =  .F. 

OlA  =  '  ' 

FIA  =  '  ' 

OIB  =  '  ' 

FIB  =  '  ' 

F2  =  '  ' 

03A  =  '  ' 

F3A  =  '  ' 

03B  =  '  ' 

F3B  =  '  ' 

F4  =  '  ' 

*  vvvvvvvvvvvvvvvvv  INTERMEDIATE  SCREEN  LOOP  vvvvvvvvvvvvvvvvv  * 

DO  WHILE  (.NOT.  DONE) 

CLEAR 

DO  HELP_SCRN 
@  3,  0  TO  15,79 

@  3,14  SAY  '  TWO-YEAR  PROGRAM  CANDIDATE  (HORIZONTAL  AXIS)  QUERY  ' 

@  5,28  SAY  'AS  Class' 

(3  8,23  SAY  'Category  Type' 

@  10,27  SAY  'Last  Name' 

@  13,32  SAY  'SSAN' 

*  vvvvvvvvvvvvvvvv  //3.  INTERMEDIATE  INPUT  LOOP  vvvvvvvvvvvvvvvv  * 

DO  WHILE  (.NOT.  DONE) 

@  5,37  GET  OlA  PICTURE  '!!' 
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(a  5,40  GET  FIA  PICTURE  '9' 

@  6,37  GET  OIB  PICTURE  '!!' 

@  6,40  GET  FIB  PICTURE  '9' 

@  8,40  GET  F2  PICTURE 
(a  10,37  GET  03A  PICTURE  '!!' 

@  10,40  GET  F3A  PICTURE  '!!!!!!!!!!!!!!!' 

@  11,37  GET  03B  PICTURE  '!!' 

@  11,40  GET  F3B  PICTURE  '!!!!!!!!!!!!!!!' 

(3  13,40  GET  F4  PICTURE  '@R  999-99-9999' 

*  Read  query  screen  inputs  and  prepare  to  process  them.  * 

t\£AD 
@  23,  0 
(a  23,19  SAY  ; 

"DO  YOU  WANT  TO  CANCEL  THIS  QUERY  [Y/N]?  "  GET  DONE  PICTURE  'Y' 
CLEAR  TYPEAHEAD 
READ 

*  If  the  user  chooses  to  cancel  the  query,  set  the  required  * 

*  flags  to  terminate  all  procedure  loops.  * 

IF  (DONE) 

ST0P_L00P  =  .T. 

M_CH0ICE  =  .F. 

EXIT 

ELSE 

ST0P_L00P  =  .F. 

END  IF 
@  23,  0 
(3  23,19  SAY  ; 

"DO  YOU  WANT  TO  MAKE  ANY  CHANGES  [Y/N]?  "  GET  DONE  PICTURE  'Y' 
CLEAR  TYPEAHEAD 
READ 

*  If  the  user  wants  to  change  their  inputs,  set  DONE  flag  to  * 

*  flase  and  repeat  the  current  loop.  * 

IF  (DONE) 

(a  23,  0 
DONE  =  .F. 

LOOP 

ELSE 

DONE  =  .T. 

END  IF 


vvvvvvvvvvvv 


RELATIONAL  OPERATOR  CHECK  vvvvvvvvvvvv 


G00D_R0  =  .T. 

TEMP_LOOP  =  .T. 

DO  WHILE  (TEMP_L00P) 

IF  (OlA  o’  ') 

DO  R0_CHK  WITH  OlA 
IF  (.NOT.  G00D_R0) 
EXIT 


END  IF 
ENDIF 

IF  (OIB  o'  ') 

DO  RO_CHK  WITH  OIB 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (03A  o'  ' ) 

DO  RO_CHK  WITH  03A 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (03B  o'  ') 

DO  RO_CHK  WITH  03B 
IF  (.NOT.  GOOD.RO) 

EXIT 

ENDIF 

ENDIF 

TEMP.LOOP  =  .F. 

ENDDO 

IF  (.NOT.  GOOD_RO) 

(§  23,  0 
?  CHR(7) 

M_CHOICE  =  .F. 

@  23,  4  SAY  'INVALID  RELATIONAL  OPERATOR.  WOULD  YOU  LIKE  TO'  ; 

+  '  TRY  AGAIN  [Y/N]?  '  GET  M_CHOICE  PICTURE  'Y' 

CLEAR  TYPEAHEAD 
READ 

*  Give  the  user  the  option  of  either  returning  to  the  * 

*  query  input  screen  or  terminating  the  query  function.  * 

IF  (M_CHOICE) 

(§  23,  0 
DONE  =  .F. 

ELSE 

STOP_LOOP  =  .T. 

EXIT 

ENDIF 

ENDIF 

ENDDO 

*  Check  to  see  if  query  termination  condition  has  been  previously  * 

*  set  to  'true'.  * 

IF  (STOP_LOOP) 

EXIT 

ELSE 

*  vvvvvvvvvvvv  if5 .  BUILD  QUERY  OUTPUT  FORMAT  vvvvvvvvvvvv  * 

HDRIA  '  ' 

HDRIB  =  ' ' 


HDR2A  =  ' ' 

HDR2B  =  ' ' 

DATA1_S  =  ' ' 

DATA1_L  =  ' ' 

DATA2_S  =  ' ' 

DATA2_L  =  ' ' 

SEP_LINE  =  ' ' 

BLK_LINE  =  ' ' 

HDRIA  =  'First  Last  AS  Cat  Phys 

+  'Physical  ' 

HDRIB  =  'Name  Name  Class  Type  Cat  '; 

+  ' Date  ALTU  Race  ' 

UAiAi_S  =  ■’F_NAME+S2+L_NA;1E+S4+STRCAS_CLASS,  1)+S5+CAT_TYPE+S5"; 

+  "+PHY_CAT+S4+DT0C(PHY_DATE)+S3+ALT+S5+RACE+S7+'  '" 

HDR2A  =  '  AFOQT  SAT  '  ; 

+  '  GPA  DC  ' 

HDR2B  =  '  Quart  Verb  Pil  Nav  AcAp  Cum  Math'  ; 

+  '  Verb  Cum  Sem  Rtng' 

DATA2A  =  "S17+'  ' +STR( AFOQT_QUAN, 2)+S5+STR( AFOQT_VERB, 2)+S3" ; 

+  "+STR ( AFOQT_PLT , 2 ) +S3+STR ( AFOQT_NAV , 7 ) + 34H  STR ( AFOQT_AA , 2 ) " ; 

+  "+S3+STR( SAT_CUM, 4)+S3+STR( SAT_MATH , 3 ) +S3+STRf  SAT_VERB , 3 ) " 

DATA2B  =  "+S2+STR(CUM_GPA,4,2)+S2+STR(SEM_nPA,4,2)+S3"; 

+  "+STR(DC_RTNG, 1)+S2" 

DATA2_S  =  DATA2A  +  DATA2B 

SEP_L1NE  =  REPLICATf:C_' ,80) 

BLK_LINE  =  REPLICATE ('  ’,80) 

SQG.LINE  =  REPLICATEC"' ,80) 

IF  (Q0_SELECT  =  'J') 

HDRIA  =  HDRIA  +  '  LOCAL’ 

HDRIB  =  HDRIB  +  '  Street  City  Zip  ’ ; 

+  '  Phone ’ 

DATA1_L  =  "S2+LOCAL_STRT+S2+LEFT(LOCAL_CITY, 15)+S2"; 

+  "+LEFT(L0CAL_ZIP,5)+S2+TRANSF0RM(L0CAL_PH0N, '(BR  999-9999' )" 
HDR2A  =  HDF2A  +  '  ACT  Form  48' 

HDR2B  =  HDR2B  +  ’  Cum  Math  Engl  NSci  SSci  Date' 

DATA2_L  =  "S3+STR(ACT_CUM,2)+S3+STR(ACT_MATH,2)+S4"; 

+  "+STR( ACT_ENGL, 2 ) +S4+STR ( ACT_NSC I , 2 )+S4" ; 

+  "+STR ( ACT_SSC 1,2) +S4+DT0C ( F0RM_48 ) " 

SEP_LINE  =  SEP.LINE  +  REPLICATEC ,57) 

BLK_LINE  =  BLK_LINE  +  REPLICATEC'  ',57) 

SQG_LINE  =  SQG_LINE  +  REPLICATEC 57 ) 

END  IF 

*  vvvvvvvvvvvvvv  #6.  BUILD  FILTER  STRING  vvvvvvvvvvvvvv  * 

FILT_STR  =  ' ' 

IF  CLENCLTRIMCFIA))  >  0) 

FII,T_STR  =  'AS_CLASS'  +  OlA  +  FIA 
ENDIF 

IF  CLENCLTRIMCFIB))  >  0  .AND.  COIA  <>  OIB)  .AND.  CF1A  <>  FIB)) 

IF  CLENCFILT_STR)  >  0) 

FILT_STR  =  FILT  STR  +  '  .  AND.  AS_CI.ASS'  +  OIB  +  FIB 
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ELSE 

FILT_STR  =  'AS_CLASS'  +  OIB  +  FIB 
END  IF 
ENDIF 

IF  (LEN(LTRIM(F2))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '  .  AND.  CAT_TYPE  ='  +  +  F2  + 

ELSE 

FILT_STR  =  'CAT_TYPE  ='  +  +  F2  +  " 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F3A))  >  9) 

IF  «,LLmiFILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ’ . AND . L_NAME '  +  03A  +  +  F3A  + 

ELSE 

FILT_STR  =  'L_NAME'  +  03A  +  "  +  F3A  + 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F3BJ)  >  0  .AND.  (03A  <>  03B)  .AND.  (F3A  <>  F3B)) 
IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '  .  AND .  L_NAME '  +  03B  +  +  F3B  + 

ELSE 

FILT_STR  =  'L_NAME'  +  03B  +  +  F3B  + 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F4))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '.AND.SSAN  ='  +  +  F4  + 

ELSE 

FTLT_STR  =  'SSAN  ='  +  +  F4  +  " 

ENDIF 
ENDIF 
DONE  =  .T. 


i^^in 


*  vvvvvvvvvv  //7.  ACCESS  DATABASE  &  DIRECT  OUTPUT  '’vvvvvvvv  * 

IF  (LEN(FILT_STR)  >  0) 

(§  23,  0 

@  23,14  SAY  'SEARCHING  DATABASE  FILES  FOR  CORRESPONDING  RECORD(S)' 
SELECT  1 

IF  (.NOT.  FILE(M_NDX_F)) 

INDEX  ON  &M_NDX_STR  TO  &M_NDX 
ENDIF 

SET  INDEX  TO  &M_NDX 
SET  FILTER  TO  &FILT_STR 
GOTO  TOP 
DO  CASE 


*  If  none  of  the  database  records  meet  all  the  input  * 

*  constraints,  give  the  user  the  option  to  try  again  * 

*  or  to  terminate  the  query.  * 

CASE  (EOFO) 

DO  ERR_NF 
IF  (M_CHOICE) 


DONE  =  .F. 

LOOP 

ELSE 

EXIT 

ENDIF 

*  If  some  database  records  meet  the  constraints,  ini-  * 

*  tiallze  the  print  environment  and  perform  print  loop  * 

*  until  all  records  are  printed.  * 

CASE  (.NOT.  EOFO) 

TF  QO_SELECT  <>  'H' 

SET  PRINT  ON 

SET  DEVICE  TO  PRINT 

IF  QO_SELECT  =  'j' 

@  0,  1  SAY  CHR(27)  +  CHR(15) 

ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(77) 

ENDIF 

MAX_LINES  =  66 
ELSE 

MAX_LINES  =  23 
ENDIF 

IF  (QO_SELECT  <>  'j') 

SPACER  =  SPACE(15) 

ELSE 

SPACER  =  SPACE(46) 

ENDIF 

CLEAR 

@  0,  0  SAY  SPACER  +  'TWO-YEAR  PROGRAM  CANDIDATE'; 

+  '  (HORIZONTAL  AXIS)  REPORT* 

@  1,  0 

FIRST.TIME  =  .T. 

DISP.LINE  =  2 

*  vvvvvvvvvv  #8.  DATABASE  RECORD  LOOP  vvvvvvvwv  * 
DO  WHILE  (.NOT.  EOF( ) ) 

IF  ((DISP_LINE  >0)  .AND.  (QO_SELECT  <>  'H')) 

IF  (.NOT.  FIRST_TIME) 

EJECT 

ENDIF 

ENDIF 

IF  (FIRST_TIME) 

FIRST_TIME  =  .F. 

ELSE 

DISP_LINE  =  0 
CLEAR 
ENDIF 

*  wv vvvvvvvvvv  /)9.  PAGING  LOOP  vvvvvvvvvvvvv  * 
DO  WHILE  ((DISP_LINE  <  MAX_LINES)  .AND.  (.NOT.  EOF())) 
*  If  the  number  of  print  lines  per  cadet  will  * 
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*  not  fit  on  one  page,  exit  the  loop  and  go  to  * 

*  the  next  page.  * 


IF  ((MAX_LINES  -  DISP_LTNE)  <  7) 

EXIT 

ELSE 

@  DISP_LINE,  0  SAY  HDRIA 
(9  DISP_LINE  +  1,  0  SAY  HDRIB 
IF  (QO_SELECT  <>  'H') 

@  DISP_LINE  +  1,  0  SAY  SEP_LINE 
END  IF 
ALT  =  'N' 

IF  ALTU 

ALT  =  'Y' 

ENDIF 

(9  DISP_LINE  +2,  0  SAY  SDATAI_S 
IF  (QO_SELECT  =  ’J') 

@  DISP_LINE  +  2,  80  SAY  &DATA1_L 
ENDIF 

(9  DISP_LINE  +  4,  0  SAY  HDR2A 
(9  DISP_LINE  +  5,  0  SAY  HDR2B 
IF  (QO_SELECT  <>  'H') 

SEP_LINE  =  STUFF(SEP_LINE, 1, 17,S17) 

@  DISP_LINE  +5,  0  SAY  SEP_LINE 
SEP_LINE  =  STUFF(SEP_LINE,1,17,REPLICATE('_’ ,17)) 
ENDIF 

DL  =  DISP_LINE  +  6 

*  The  position  of  the  following  line  is  critical  for  it  to  print  properly,  * 

*  The  string  varaible  is  so  long  that  DOS  will  not  accept  it  unless  it  is  * 

*  <=  256  characters  when  combined  with  the  other  commands  on  the  same  line.* 

@  DL,  0  SAY  &DATA2_S 
****************************** 

IF  (Q0_SELECT  =  'j') 

@  DISP_LINE  +  6,  80  SAY  &DATA2_L 
ENDIF 

(9  DISP_LINE  +  7,  0  SAY  SQG_LINE 
DISP_LINE  =  DISP_LINE  +  8 
ENDIF 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  * 

*  next  record  which  meets  the  input  constraints.* 


SKIP 

ENDDO 

*  If  the  output  media  is  the  screen,  issue  the  user* 

*  paging  prompt .  * 

IF  (Q0_SELECT  =  'H') 

@  23,  0  SAY  'PRESS  ANY  KEY  TO  CONTINUE* 

CLEAR  TYPEAHEAD 
WAIT  '  ’ 


ENDIF 

ENDDO 

IF  (QO_SELECT  <>  'H') 

@  DISP_LINE  +  1,  0  SAY  CHR(IO) 

EJECT 

IF  (QO_SELECT  =  'J' ) 

(a  0,  1  SAY  CHR(18) 

ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(80) 

ENDIF 

SET  PRINT  OFF 
ENDIF 

SET  DEVICE  TO  SCREEN 
SET  FILTER  TO 

ENDCASE 

*  If  the  user  fails  to  enter  any  data  in  the  input  fields,  * 

*  issue  a  prompt  for  them  to  please  enter  data  (if  they  had  * 

*  intended  to  cancel  the  query,  they  should  not  have  gotten  * 

*  this  far  in  the  procedure).  * 

ELSE 

@  23,  0 
?  CHR(7) 

@  23,  4  SAY  'PLEASE  ENTER  DATA.  PRESS  ANY  KEY  TO  CONTINUE.' 
CLEAR  TYPEAHEAD 
WAIT  ' ' 

@  23,  0 
DONE  =  .F. 

ENDIF 

ENDIF 

ENDDO 

CLEAR 


*  If  the  user  has  not  previously  entered  a  response  to  terminate  the  * 

*  query  (M_CH0ICE  would  be  "false"),  then  give  them  the  opportunity  * 

*  to  do  another  query  or  terminate  the  function.  * 


IF  (M_CH0ICE) 
DO  RCIS_HDR 
DO  M_PR0MPT 
ENDIF 
ENDDO 


*  Close  the  database  files  used  in  this  query.  * 


SELECT  1 
USE 

F_PARA  =  STUFF(F_PARA, 1, 1, 'C' ) 
ON  ERROR 

* 

RETURN 
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CGDT_QRY 


*  SUMMARY :  * 

*  The  CGDT_QRY  procedure  provides  the  interface  for  the  user  to  per-  * 

*  form  ad  hoc  queries  on  cadet  data  which  is  related  to  suspense  * 

*  dates  pertaining  to  their  graduation  and  their  commissioning.  * 

*  * 


PROCEDURE  CGDT_QRY 
* 

PRIVATE  SPACER 

* 

ON  ERROR  DO  DB3_Q_ERR  WITH  ERROR( ) ,  MESSAGEO 
CLEAR 

M  CHOICE  =  .T. 


*  vvvvvvvvvvvvvvvvvvvv  #1.  MAIN  OUTER  T.OOP  vvvvvvvvvvvvvvvvvv  * 
DO  WHILE  (M_CHOICE) 

*  Initialize  operator  and  constraint  fields.  * 


DONE  =  .F 
OlA  =  ' 
FIA  =  ’  ' 
OIB  =  ' 
FIB  =  '  ' 
02A  =  ' 
F2A  =  ' 
02B  =  ' 
F2B  =  ' 

F3  =  ' 
04A  =  ' 
F4A  =  ' 
04B  =  ' 
F4B  =  ' 
05A  =  ' 
F5A  =  ' 
05B  =  ' 
F5B  =  ' 


*  vvvvvvvvvvvvvvvvv  U2.  INTERMEDIATE  SCREEN  IiOOP  vvvvvvvvvvvvvvvvv 

DO  WHILE  (.NOT.  DONE) 

CLEAR 

DO  HELP_SCRN 
(a  5,  0  TO  15,79 

(3  5,17  SAY  '  GRADUATION/COMMISSIONING  SUSPENSE  DATES  QUERY  ' 

(3  7,  9  SAY  'AS  Class' 

(3  10,11  SAY  'Last  Name’ 

(3  13,16  SAY  'SSAN' 


I 


« 


1^. 


r. 


t- 


t: 


@  7,47  SAY  '//  Days  Until' 

@  8,47  SAY  'Commissioning  Date' 

@  10,50  SAY  '#  Days  Until' 

@  11,50  SAY  'Graduation  Date' 

*  vvvvvvvvvvvvvvvv  #3.  INTERMEDIATE  INPUT  LOOP  vvvvvvvvvvvvvvvv  * 


DO  WHILE  (, 

.NOT. 

,  DONE) 

7,21 

GET 

OlA 

PICTURE  ' ! ! ' 

0 

7,24 

GET 

FIA 

PICTURE  '9' 

(9 

8,21 

GET 

OIB 

PICTURE  ' ! ! ' 

8,24 

GET 

FIB 

PICTURE  '9' 

10,21 

GET 

02A 

PICTURE  ' ! ! ' 

(§ 

10,24 

GET 

F2A 

PTOTtIRR  '  1  »  1  1  1  »  f  J  !  1  1  1  1  1  1 

@ 

11,21 

GET 

02B 

PICTURE  '!!' 

(9 

11,24 

GET 

¥2^ 

PICTURE  '!!!!!!!!!!!!!!! 

13,24 

GET 

F3 

PICTURE  '@R  999-99-9999' 

7,66 

GET 

04A 

PICTURE  ' ! ! ' 

(9 

7,69 

GET 

F4A 

PICTURE  '999' 

@ 

8,66 

GET 

04B 

PICTURE  ' ! ! ' 

(9 

8,69 

GET 

F4B 

PICTURE  '999' 

(9 

10,66 

GET 

05A 

PICTURE  ' ! ! ' 

@ 

10,69 

GET 

F5A 

PICTURE  '999' 

(9 

11,66 

GET 

05B 

PICTURE  ' ! ! ' 

(9 

11,69 

GET 

F5B 

PICTURE  '999' 

*  Read  query  screen  Inputs  and  prepare  to  process  them.  * 

READ 

(§  23,  0 

(§  23,19  SAY  ; 

"DO  YOU  WANT  TO  CANCEL  THIS  QUERY  [Y/N]?  "  GET  DONE  PICTURE  'Y' 
CLEAR  TYPEAHEAD 
READ 

*  If  the  user  chooses  to  cancel  the  query,  set  the  required  * 

*  flags  to  terminate  all  procedure  loops.  * 


IF  (DONE) 

ST0P_L00P  =  .T. 

M_CH0ICE  =  .F. 

EXIT 

ELSE 

ST0P_L00P  =  .F. 

ENDIF 
(a  23,  0 
(3  23,  19  SAY  ; 

"DO  YOU  WANT  TO  MAKE  ANY  CHANGES  [Y/N]?  "  GET  DONE  PICTURE  'Y' 
CLEAR  TYPEAHEAD 
READ 

*  If  the  user  wants  to  change  their  inputs,  set  DONE  flag  to  * 

*  flase  and  repeat  the  current  loop.  * 


IF  (DONE) 
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(a  23,  0 
DONE  =  .F. 

LOOP 

ELSE 

DONE  =  .T. 

END  IF 

*  vvvvvvvvvvvv  /t4.  RELATIONAL  OPERATOR  CHECK  vvvvvvvvvvvv  * 


GOOD_RO  =  .T. 

TEMP_LOOP  =  .T. 

DO  WHILE  (TEMP_ 
IF  (OlA  <>  ’ 
DO  RO_CHK 
IF  ( .NOT. 

EXIT 

ENDIF 

ENDIF 

IF  (OIB  <>  ' 
DO  RO_CHK 
IF  (.NOT. 

EXIT 

ENDIF 

ENDIF 

IF  (02A  <>  ' 
DO  RO_CHK 
IF  (.NOT. 

EXIT 

ENDIF 

ENDIF 

IF  (02B  <>  ' 
DO  RO_CHK 
IF  (.NOT. 

EXIT 

ENDIF 

ENDIF 

IF  (04A  <>  ' 
DO  RO_CHK 
IF  (.NOT. 

EXIT 

ENDIF 

ENDIF 

IF  (04B  <>  ' 
DO  RO_CHK 
IF  (.NOT. 

EXIT 

ENDIF 

ENDIF 

IF  (05A  <>  ' 
DO  RO_CHK 
IF  (.NOT. 

EXIT 

ENDIF 

ENDIF 

IF  (05B  <>  ' 


LOOP) 

') 

WITH  OlA 
GOOD_RO) 


') 

WITH  OIB 
GOOD_RO) 


’) 

WITH  02A 
GOOD_RO) 


') 

WITH  02B 
GOOD.RO) 


') 

WITH  04A 
GOOD_RO) 


') 

WITH  04B 
GOOD_RO) 


') 

WITH  05A 
GOOD_RO) 


m 


DO  RO_CHK  WITH  05B 
IF  (.NOT.  GOOD_RO) 

EXIT 
END  IF 
ENDIF 

TEMP_LOOP  =  .F. 

ENDDO 

IF  (.NOT.  GOOD_RO) 

(9  23,  0 
?  CHR(7) 

M_CHOICE  =  .F. 

(9  23,  4  SAY  'INVALID  RELATIONAL  OPERATOR.  WOULD  YOU  LIKE  TO' 

@  23,52  SAY  '  TRY  AGAIN  [Y/N]?  '  GET  M_CHOICE  PICTURE  'Y' 

CLEAR  TYPEAHEAD 
READ 

*  Give  the  user  the  option  of  either  returning  to  the  * 

*  query  input  screen  or  terminating  the  query  function.  * 

IF  (M_CHOICE) 

(9  23,  0 
DONE  =  .F. 

ELSE 

STOP_LOOP  =  .T. 

EXIT 

ENDIF 

ENDIF 

ENDDO 

*  Check  to  see  if  query  termination  condition  has  been  previously  * 

*  set  to  ' true' .  * 

IF  (ST0P_L00P) 

EXIT 

ELSE 

*  vvvvvvvvvvvv  #5.  BUILD  QUERY  OUTPUT  FORMAT  vvvvvvvvvvvv  * 

HDRIA  =  ' ' 

HDRIB  =  ' ' 

DATA1_S  =  '  ' 

DATA1_L  =  '  ' 

HDRIA  =  'First  Last  Comm  Grad  ' 

+  '  AS 

HDRIB  =  'Name  Name  Date  Date  ' 

+  'Class  SSAN 

DATA 1_S  =  " F_NAME+S  2+L_NAME+S  3+DTOC ( COM_D ATE ) +S  3+DTOC ( GR AD_DATE ) +S4 
+  "+STR(AS_CLASS, 1)+S6+TRANSF0RM(SSAN, '@R  999-99-9999 ' )+S4" 
SEP_LINE  =  REPLICATE('_' ,80) 

IF  (Q0_SELECT  =  'j') 

DATA1_L  =  "S2" 

SEP_LINE  =  SEP_LINE  +  REPLICATE( , 52) 

ENDIF 


4  »  t’a  i  •-%  4, 


*  vvvvvvvvvvvvvv  #6.  BUILD  FILTER  STRING  vvvvvvvvvvvvvv  * 

FILT_STR  =  ' ' 

IF  (LEN(LTRIM(F1A))  >  0) 

FILT_STR  =  'AS_CLASS'  +  OlA  +  FI A 
ENDIF 

IF  (LEN(LTRIM(F1B))  >  0  .AND.  (OlA  <>  OIB)  .AND.  (FIA  <>  FIB)) 
IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . AS_CLASS '  +  OIB  +  FIB 
ELSE 

FILT_STR  =  'AS_CLASS'  +  OIB  +  FIB 
ENDIF 
ENDIF 

IF  (LEN(LTRIM(F2A))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . L_NAME ’  +  02A  +  +  F2A  +  " 

ELSE 

FILT_STR  =  'L_NAME’  +  02A  +  +  F2A  + 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F2B))  >  0  .AND.  (02A  <>  02B)  .AND.  (F2A  <>  F2B)) 
IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '  .  AND .  L_NAME '  +  02B  +  +  F2B  + 

ELSE 

FILT_STR  =  'L_NAME’  +  02B  +  +  F2B  + 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F3))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '.AND.SSAN  =’  +  +  F3  + 

ELSE 

FILT_STR  =  'SSAN  ='  +  +  F3  + 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F4A))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND. (COM_DATE-DATE( ) ) '  +  04A  +  F4A 
ELSE 

FILT_STR  =  '(COM_DATE-DATE())'  +  04A  +  F4A 
ENDIF 
ENDIF 

IF  (LEN(LTRIM(F4B))  >  0  .AND.  (04A  <>  04B)  .AND.  (F4A  <>  F4B)) 
IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND. (COM_DATE-DATE( ) ) '  +  04B  +  F4B 
ELSE 

FILT_STR  =  ' (COM_DATE-DATE())'  +  04B  +  F4B 
ENDIF 
ENDIF 

IF  (LEN(LTRIM(F5A))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND. (GRAD_DATE-DATE( ) ) '  +  05A  +  F5A 
ELSE 

FILT_STR  =  '(GRAD_DATE-DATE())'  +  05A  +  F5A 
ENDIF 
ENDIF 


IF  (LEN(LTRIM(F5B))  >  0  .AND.  (05A  <>  05B)  .AND.  (F5A  <>  F5B)) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND. (GRAD_DATE-DATE() ) '  +  05B  +  FSB 
ELSE 

FILT_STR  =  '(GRAD_DATE-DATE())'  +  05B  +  FSB 
ENDIF 
END  IF 
DONE  =  .T. 

*  vvvvvvvvvv  #7.  ACCESS  DATABASE  &  DIRECT  OUTPUT  vvvwvvvvv  * 

IF  (LEN(FILT_STR)  >  0) 

@  23,  0 

@  23,14  SAY  'SEARCHING  DATABASE  FILES  FOR  CORRESPONDING  RECORD(S)' 
SELECT  1 

IF  (.NOT.  FILE(M_NDX_F)) 

INDEX  ON  &M_NDX_STR  TO  &M_NDX 
ENDIF 

SET  INDEX  TO  &M_NDX 
SET  FILTER  TO  &FILT_STR 
GOTO  TOP 
DO  CASE 


* 


If  none  of  the  database  records  meet  all  the  Input  * 
constraints,  give  the  user  the  option  to  try  again  * 
or  to  terminate  the  query.  * 


CASE  (EOFO) 

DO  ERR_NF 
IF  (M.CHOICE) 
DONE  =  .F. 
LOOP 
ELSE 
EXIT 
ENDIF 


k 

k 

k 


If  some  database  records  meet  the  constraints,  ini-  * 
tialize  the  print  environment  and  perform  print  loop  * 
until  all  records  are  printed.  * 


CASE  (.NOT.  EOFO) 

IF  Q0_SELECT  <>  'H' 

SET  PRINT  ON 

SET  DEVICE  TO  PRINT 

IF  Q0_SELECT  =  'j' 

@  0,  1  SAY  CHR(27)  +  CHR(15) 

ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(77) 

ENDIF 

MAX_LINES  =  66 
ELSE 

MAX_LINES  =  23 
ENDIF 

IF  (qO_SELECT  <>  'J') 

SPACER  =  SPACE! 17) 
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ELSE 

SPACER  =  SPACE(48) 

ENDIF 

CLEAR 

(9  0,  0  SAY  SPACER  +  'GRADUATION/COMMISSIONING  SUSPENSE’; 

+  '  DATES  REPORT' 

@  1.  0 

FIRST_TIME  =  .T. 

DISP_LINE  =  2 

*  wvwvvvvv  #8.  DATABASE  RECORD  LOOP  vvvvvvvvvv  * 
DO  WHILE  (.NOT.  EOF()) 

IF  ((DISP_LINE  >  0)  .AND.  (QO_SELECT  <>  'H')) 

IF  (.NOT.  FIRST_TIME) 

EJECT 

ENDIF 

ENDIF 

IF  (FIRST_TIME) 

FIRST_TIME  =  .F. 

ELSE 

DISP_LINE  =  0 
CLEAR 
ENDIF 

*  vvvvvvvvvvvvv  #9.  PAGING  LOOP  vvvvvvvvvvvw  * 

DO  WHILE  ((DISP_LINE  <  MAX_LINES)  .AND.  (.NOT.  EOF())) 
IF  (DISP_LINE  <=  3) 

@  DISP_LINE,  0  SAY  HDRIA 
(§  DISP.LINE  +  1,  0  SAY  HDRIB 
IF  (QO.SELECT  <>  'H') 

@  DISP.LINE  +  1,  0  SAY  SEP.LINE 
ENDIF 

DISP_LINE  =  DISP_LINE  +  2 
ENDIF 

@  DISP_LINE,  0  SAY  &DATA1_S 
IF  (QO.SELECT  =  'J') 

@  DISP_LINE,  80  SAY  &DATA1_L 
ENDIF 

DISP_LINE  =  DISP_LINE  +  2 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  * 

*  next  record  which  meets  the  input  constraints.* 

SKIP 

ENDDO 

*  If  the  output  media  is  the  screen,  issue  the  user* 

*  paging  prompt .  * 

IF  (Q0_SELECT  =  ’H') 

(9  23,  0  SAY  'PRESS  ANY  KEY  TO  CONTINUE' 

CLEAR  TYPEAHEAD 
WAIT  " 


ENDIF 

ENDDO 

IF  (QO_SELECT  <>  'H') 

@  DISP_LINE  +  1,  0  SAY  CHR(IO) 

EJECT 

IF  (QO.SELECT  =  'j') 

@  -0,  1  SAY  CHR(18) 

ELSE 

(a  0,  1  SAY  CHR(27)  CHR(80) 

ENDIF 

SET  PRINT  OFF 
ENDIF 

SET  DEVICE  TO  SCREEN 
SET  FILTER  TO 

ENDCASE 

*  If  the  user  fails  to  enter  any  data  in  the  input  fields,  * 

*  issue  a  prompt  for  them  to  please  enter  data  (if  they  had  * 

*  intended  to  cancel  the  query,  they  should  not  have  gotten  * 

*  this  far  in  the  procedure) .  * 


ELSE 

(3  23,  0 
?  CHR(7) 

@  23,  4  SAY  'PLEASE  ENTER  DATA. 
CLEAR  TYPEAHEAD 
WAIT  ' ' 

@  23,  0 
DONE  =  .F. 

ENDIF 

ENDIF 

ENDDO 

CLEAR 


PRESS  ANY  KEY  TO  CONTINUE.' 


DO 

DO 

A 

ENDIF 

• 

te- 

ENDDO 

Sv-' 

*  Close 

SELECT  I 

A 

USE 

F_PARA  = 

ON  ERROR 

A- 


*  If  the  user  has  not  previously  entered  a  response  to  terminate  the  * 

*  query  (M_CH0ICE  would  be  "false"),  then  give  them  the  opportunity  * 


to  do  another  query  or  terminate  the  function. 


*  Close  the  database  files  used  in  this  query. 


* 

RETURN 
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* 

* 

tV 


SEDT_QRY 


* 
* 
* 

*  SUMMARY:  * 


*  The  SEDT_QRY  procedure  provides  the  interface  for  the  user  to  per-  * 

*  form  ad  hoc  queries  on  cadet  data  which  is  related  to  the  cadet's  * 

*  scholarship  expiration  date  (if  they  have  one),  i.e.  suspense  dates* 

*  * 

* - * 


PROCEDURE  SEDT_QRY 
* 

PRIVATE  SPACER 

* 

ON  ERROR  DO  DB3_Q_ERR  WITH  ERROR(),  MESSAGEO 
CLEAR 

M_CHOICE  =  .T. 


*  vvvvwvvvvvvvvvvvvvv  //I.  MAIN  OUTER  LOOP  vvvvvvvvvvvvvvvvvv  * 
DO  WHILE  (M_CHOICE) 

*  Initialize  operator  and  constraint  fields.  * 

DONE  =  .F. 

OlA  =  '  ’ 

FIA  =  ’  ' 

OIB  =  '  ' 

FIB  =  '  ' 

F2  =  '  ' 

03A  =  '  ' 

F3A  =  '  ' 

03B  =  '  ' 

F3B  =  '  ' 

04A  =  '  ' 

F4A  =  '  ' 

04B  =  '  ' 

F4B  =  ' 


*  vvvvvvvvvvvvvvvvv  #2.  INTERMEDIATE  SCREEN  TiOOP  vvvvvvvvvvvvvvvvv  * 

DO  WHILE  (.NOT.  DONE) 

CLEAR 

DO  HELP_SCRN 
(9  1,  0  TO  15,79 

(9  1,22  SAY  '  SCHOLARSHIP  EXPIRATION  DATES  QUERY  ' 

(9  3,28  SAY  'AS  Class' 

(9  6,23  SAY  'Category  Type' 

(9  8,16  SAY  'Scholarship  Type' 

@  11,27  SAY  'Last  Name' 

(3  14,32  SAY  'SSAN' 


*  vvvvvvvvvvvvvvvv  /j<3.  INTERMF.DIATE  INPUT  LOOP  vvvvvvvvvvvvvvvv 


* 


DO  WHILE  (. 

,NOT. 

DONE) 

@ 

3,37 

GET 

OlA 

PICTURE 

@ 

3,40 

GET 

FIA 

PICTURE 

@ 

4,37 

GET 

OIB 

PICTURE 

4,40 

GET 

FIB 

PICTURE 

@ 

6,40 

GET 

F2 

PICTURE 

@ 

8,37 

GET 

03A 

PICTURE 

@ 

8,40 

GET 

F3A 

PICTURE 

@ 

9,37 

GET 

03B 

PICTURE 

@ 

9,40 

GET 

F3B 

PICTURE 

@ 

11,37 

GET 

04A 

PICTURE 

@ 

11,40 

GET 

F4A 

PICTURE 

@ 

12,37 

GET 

04B 

PICTURE 

@ 

12,40 

GET 

F4B 

PICTURE 

@ 

14,40 

GET 

F5 

PICTURE 

'  !  !  ' 

'9' 

'  !  !  ' 

'9' 

'  !  ' 

'  !  !  ' 

’9.9’ 

’  !  !  ’ 

’9.9’ 

’ ! !  ’ 

’!!!!!!!!!!!!!!!’ 

’!!’ 

’!!!!!!!!!!!!!!!’ 
’@R  999-99-9999' 


*  Read  query  screen  inputs  and  prepare  to  process  them.  * 


READ 

(3  23,  0 

(3  23,19  SAY  ; 

”D0  YOU  WANT  TO  CANCEL  THIS  QUERY  [Y/N]?  "  GET  DONE  PICTURE  'Y 
CLEAR  TYPEAHEAD 
READ 

*  If  the  user  chooses  to  cancel  the  query,  set  the  required  * 

*  flags  to  terminate  all  procedure  loops.  * 


IF  (DONE) 

STOP.LOOP  =  .T. 

M.CHOICE  =  .F. 

EXIT 

ELSE 

STOP_LOOP  =  .F. 

ENDIF 
@  23,  0 
(3  23,19  SAY  ; 

"DO  YOU  WANT  TO  MAKE  ANY  CHANGES  [Y/N]?  ’’  GET  DONE  PICTURE  ’Y 
CLEAR  TYPEAHEAD 
READ 


*  Tf  the  user  wants  to  change  their  inputs,  set  DONE  flag  to  * 

*  flase  and  repeat  the  current  loop.  * 


IF  (DONE) 

(3  23,  0 
DONE  =  .F. 

LOOP 

ELSE 

DONE  =  .T. 

ENDIF 

*  vvvvvvvvvvvv  RELATIONAL  OPERATOR  CHECK  vvvvvvvvvvvv  * 


GOOD_RO  =  .T. 
TEMP_LOOP  =  .T. 

DO  WHILE  (TEMP_LOOP) 


IF  (OlA  o'  ') 

DO  RO_CHK  WITH  OlA 
IF  (.NOT.  GOOD_RO) 

EXIT 
END  IF 
ENDIF 

IF  (OIB  o'  ') 

DO  RO_CHK  WITH  OIB 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (03A  o'  ') 

DO  R0_CHK  WITH  03A 
IF  (.NOT.  GOOD.RO) 

EXIT 

ENDIF 

ENDIF 

IF  (03B  o'  ') 

DO  R0_CHK  WITH  03B 
IF  (.NOT.  G00D_R0) 

EXIT 

ENDIF 

ENDIF 

IF  (04A  o'  ') 

DO  R0_CHK  WITH  04A 
IF  (.NOT.  G00D_R0) 

EXIT 

ENDIF 

ENDIF 

IF  (04B  o'  ') 

DO  RO_CHK  WITH  04B 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

TEMP_LOOP  =  .F. 

ENDDO 

IF  (.NOT.  GOOD_RO) 

@  23,  0 
?  CHR(7) 

M_CHOICE  =  .F. 

(9  23,  4  SAY  'INVALID  RELATIONAL  OPERATOR.  WOULD  YOU  LIKE  TO' 
+  '  TRY  AGAIN  [Y/N]?  '  GET  M_CHOICE  PICTURE  'Y' 
‘clear  riFEAHEAD 
READ 


*  Give  the  user  the  option  of  either  returning  to  the 

*  query  input  screen  or  terminating  the  query  function. 


IF  (M_CHOICE) 


@  23,  0 

DONE  =  .F. 

ELSE 

STOP_LOOP  =  .T. 

EXIT 
ENDIF 
END  IF 

ENDDO 

*  Check  to  see  if  query  termination  condition  has  been  previously  * 

*  set  to  ' true ' .  * 

IF  (STOP_LOOP) 

EXIT 

ELSE 

*  vvvvvvvvvvvv  j/5.  BUILD  QUERY  OUTPUT  FORMAT  vvvvvvvvvvvv  * 

HDRIA  =  ' ' 

HDRIB  =  ' ' 

DATA1_S  =  '  ' 

DATA1_L  =  '  ' 

HDRIA  =  'First  Last  Schl  Exp  Sch  Corps 

+  '  Semester' 

HDRIB  =  'Name  Name  Date  Typ  Position 

+  '  Intrview' 

DATA1_S  =  "LEFT(F_NAME, 14)+S2+LEFT(L_NAME, 14)+S2+DTOC(SCHLR_DATE)"; 

+  "+S2+STR( SCHLR_TYPE ,3,1 )+S2+LEFT( CORPS.POS , 23 )+S2" ; 

+  "+DTOC(SEM_INTRVW)" 

SEP. LINE  =  REPLICATE(’_',80) 

IF  (QO_SELECT  =  'j') 

HDRIA  =  HDRIA  +  '  Significant' 

HDRIB  =  HDRIB  +  '  Information' 

DATA1_L  =  "S2+OTHER_INFO" 

SEP_LINE  =  SEP_LINE  +  REPLICATE( , 52) 

ENDIF 

*  wvvvvvvvvvvvv  #6.  BUILD  FILTER  STRING  vvvvvvvvvvvvvv  * 

FILT_STR  =  ' ' 

IF  (LEN(LTRIM(F1A))  >  0) 

FILT_STR  =  'AS_CLASS'  +  OlA  +  FI  A 
ENDIF 

IF  (LEN(LTRIM(F1B))  >  0  .AND.  (OlA  <>  OIB)  .AND.  (FIA  <>  FIB)) 
IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND. AS_CLASS '  +  OIB  +  FIB 
ELSE 

FILT_STR  =  'AS_CLASS'  +  OIB  +  FIB 
ENDIF 
ENDIF 

IF  (LEN(LTRIM(F2))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '  .  AND .  CAT_TYPE  ='  +  '""  +  F2  +  '"" 

ELSE 


FILT_STR  =  'CAT_TYPE  ='  +  +  F2  +  " 

ENDIF 
END  IF 

IF  (LEN(LTRIM(F3A))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FTLT_STR  =  FILT_STR  +  ' . AND . SCHLR_TYPE '  +  03A  +  F3A 
ELSE 

F1LT_STR  =  'SCHLR_TYPE'  +  03A  +  F3A 
ENDIF 
ENDIF 

IF  (LEN(LTRIM(F3B))  >  0  .AND.  (03A  <>  03B)  .AND.  (F3A  <>  F3B)) 
IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . SCHLR_TYPE '  +  03B  +  F3B 
ELSE 

FILT_STR  =  'SCHLR_TYPE'  +  03B  +  F3B 
ENDIF 
ENDIF 

IF  (LEN(LTRIM(F4A))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ’  .  AND .  L_NAME '  +  04A  +  +  F4A  + 

ELSE 

FILT_STR  =  'L_NAME'  +  04A  +  " +  F4A  + 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F4B))  >  0  .AND.  (04A  <>  04B)  .AND.  (F4A  <>  F4B)) 
IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . L_NAME '  +  04B  +  "  +  F4B  +  " 

ELSE 

FILT.STR  =  'L.NAME'  +  04B  +  +  F4B  + 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F5))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '.AND.SSAN  ='  +  +  F5  + 

ELSE 

FILT_STR  =  'SSAN  ='  +  +  F5  +  " 

ENDIF 
ENDIF 
DONE  =  .T. 

^  vwvvvvvvv  #7.  ACCESS  DATABASE  &  DIRECT  OUTPUT  vvvvvvvvvv  * 


IF  (LEN(FILT_STR)  >  0) 

@  23,  0 

(9  23,14  SAY  'SEARCHING  DATABASE  FILES  FOR  CORRESPONDING  RECORD(S)' 
SELECT  1 

IF  (.NOT.  FILE(M_NDX_F)) 

INDEX  ON  &M_NDX_STR  TO  &M_NDX 
ENDIF 

SET  INDEX  TO  &M_NDX 
SET  FILTER  TO  &FILT_STR 
GOTO  TOP 
DO  CASE 

*  If  none  of  the  database  records  meet  all  the  input  * 


mm 


*  constraints,  give  the  user  the  option  to  try  again  * 

*  or  to  terminate  the  query.  * 

CASE  (EOFO) 

DO  ERR_NF 
IF  (M_CHOICE) 

DONE  =  .F. 

LOOP 
ELSE 
EXIT 
END  IF 

*  If  some  database  records  meet  the  constraints,  ini-  * 

*  tialize  the  print  environment  and  perform  print  loop  * 

*  until  all  records  are  printed.  * 

CASE  (.NOT.  EOFO) 

IF  QO_SELECT  <>  ’H’ 

SET  PRINT  ON 

SET  DEVICE  TO  PRINT 

IF  QO_SELECT  =  ’j' 

(a  0,  1  SAY  CHR(27)  +  CHR(15) 

ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(77) 

ENDIF 

MAX_LINES  =  66 
ELSE 

MAX_LINES  =  23 
ENDIF 

IF  (Q0_SELECT  <>  'j') 

SPACER  =  SPACE (22) 

ELSE 

SPACER  =  SPACE(53) 

ENDIF 

CLEAR 

@  0,  0  SAY  SPACER  +  'SCHOLARSHIP  EXPIRATION  DATES  REPORT* 

@  1,  0 

FIRST_TIME  =  .T. 

DISP_LINE  =  2 

*  vvvvvvvvvv  #8.  DATABASE  RECORD  LOOP  vvvvvvvvvv  * 


DO  WHILE  (.NOT.  EOF()) 

IF  ((DISP_LINE  >0)  .AND. 
IF  (.NOT.  FIRST_TIME) 
EJECT 
ENDIF 
ENDIF 

IF  (FIRST_TIME) 

FIRST_TIME  =  .F. 

ELSE 

DISP.LINE  =  0 
CLEAR 
ENDIF 


(qO_SELECT  <>  'H')) 


*  vvvvvvvvvvvvv  #9.  PAGING  LOOP  vvvvvvvvvvvvv 


* 


DO  WHILE  ((DISP_LINE  <  MAX_LINES)  .AND,  (.NOT.  EOF())) 
IF  (DISP_LINE  <=  3) 

(§  DISP_LINE,  0  SAY  HDRIA 
(a  DISP_LINE  +1,  0  SAY  HDRIB 
IF  (QO_SELEuT  <>  'H') 

@  DISP_LINE  +1,  0  SAY  SEP_LINE 
ENDIF 

DISP_LINE  =  DISP_Li:’E  +  2 
ENDIF 

@  DISP_LINE,  0  SAY  &DATA1_S 
IF  (QO_SELECT  =  'j') 

@  DISP_LINE,  80  SAY  &DATA1_L 
ENDIF 

DISP_LINE  =  DISP_LINE  +  2 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  * 

*  next  record  which  meets  the  input  constraints.* 

SKIP 

ENDDO 

*  If  the  output  media  is  the  screen,  issue  the  user* 

*  paging  prompt.  * 

IF  (Q0_SELECT  =  'H') 

@  23,  0  SAY  ’PRESS  ANY  KEY  TO  CONTINUE* 

CLEAR  TYPEAHEAD 
WAIT  " 

ENDIF 

ENDDO 

IF  (Q0_SELECT  <>  'H') 

@  DISP_LINE  +  1,  0  SAY  CHR( 10) 

EJECT 

IF  (qO_SELECT  =  ’J') 

(§  0,  1  SAY  CHR(18) 

ELSE 

(a  0,  1  SAY  CHR(27)  +  CHR(80) 

ENDIF 

SET  PRINT  OFF 
ENDIF 

SET  DEVICE  TO  SCREEN 
SET  FILTER  TO 

ENDCASE 

If  the  user  fails  to  enter  any  data  in  the  input  fields,  * 
issue  a  prompt  for  them  to  please  enter  data  (if  they  had  * 
intended  to  cancel  the  query,  they  should  not  have  gotten  * 
this  far  in  the  procedure).  * 


iE 

@  23,  0 
?  CHR(7) 

(9  23,  A  SAY  'PLEASE  ENTER  DATA.  PRESS  ANY  KEY  TO  CONTINUE.' 


■r.  -r 


CLEAR  TYPEAHEAD 
WAIT  ' ' 

@  23,  0 
DONE  =  .F. 

ENDIF 

ENDIF 

ENDDO 

CLEAR 

*  If  the  user  has  not  previously  entered  a  response  to  terminate  the  * 

*  query  (M_CHOICE  would  be  "false"),  then  give  them  the  opportunity  * 

*  to  do  another  query  or  terminate  the  function.  * 

IF  (M_CHOICE) 

DO  RCIS.HDR 
DO  M_PROMPT 
ENDIF 
ENDDO 

*  Close  the  database  files  used  in  this  query.  * 

SELECT  1 
USE 

F_PARA  =  STUFF(F_PARA,1,1,'C') 

ON  ERROR 

* 

RETURN 


VrrAR_QRY 


SUMMARY:  * 

The  WTAR_QRY  procedure  provides  the  interface  for  the  user  to  per-  * 
form  ad  hoc  queries  on  cadet  data  which  is  related  to  the  cadet's  * 
weight  and  aerobic  run  time  standards.  * 


PROCEDURE  WTAR_QRY 
* 

PRIVATE  PRINT_OPT 
PRIVATE  PRNT_FLAG 
PRIVATE  SPACER 

* 

ON  ERROR  DO  DB3_Q_ERR  WITH  ERROR(),  MESSAGE() 

CLEAR 

M_CHOICE  =  .T. 

*  vvvvvvvvvvvvvvvvvvvv  //I.  MAIN  OUTER  LOOP  vvvvvvvvvvvvvvvvvv  * 

DO  WHILE  (M_CHOICE) 

*  Initialize  operator  and  constraint  fields.  * 

DONE  =  .F. 

OlA  =  '  ' 

FIA  =  '  ' 

OIB  =  '  ' 

FIB  =  '  ' 

02A  =  '  ' 

F2A  =  ' 

02B  =  '  ' 

F2B  =  '  ' 

F3  =  '  ' 

PRINT_OPT  =  1 

*  vvvvvvvvvvvvvvvvv  in.  INTERMEDIATE  SCREEN  T,OOP  vvvvvvvvvvvvvvvvv  * 

DO  WHILE  (.NOT.  DONE) 

CLEAR 

DO  HELP_SCRN 
(9  1,  0  TO  15,79 

(9  1,19  SAY  ’  CADET  WEIGHT  AND  AEROBIC  STANDARDS  QUERY  ' 

(9  3,23  SAY  'AS  Class' 

(9  6,22  SAY  'Last  Name' 

(9  9,27  SAY  'SSAN' 

(9  11,18  SAY  'Print  Options' 

I?  12,18  SAY  '  *Subject  to  constraints  above*' 

(?  13,18  SAY  '  All  Cadets  -  l' 

(?  14,18  SAY  '  Only  Cadets  in  violation  of  standards  -  2' 


i-  •  uN  _Si  JS  '  «  -iV  uV  ' 


*  vvvvvvvvvvvvvvvv  ^/3.  INTERMEDIATE  INPUT  LOOP  vvvvvvvvvvvvvvvv  * 


DO  WHILE  (.NOT.  DONE) 

@  3,32  GET  OlA  PICTURE  ’!!' 

(3  3,35  GET  FIA  PICTURE  *9’ 

@  4,32  GET  OIB  PICTURE  '»!' 

(§  4,35  GET  FIB  PICTURE  '9' 

@  6,32  GET  02A  PICTURE  '!!' 

(3  6,35  GET  F2A  PICTURE  '!!!!!!!!!!!!!!!' 

(3  7,32  GET  02B  PICTURE  '  !  !  ' 

(3  7,35  GET  F2B  PICTURE  ‘  !!!!!!!!!!!!!!!  ' 

@  9,35  GET  F3  PICTURE  '@R  999-99-9999' 

@  14,63  GET  PRINT.OPT  PICTURE  '9*  RANGE  1,2 

*  Read  query  screen  inputs  and  prepare  to  process  them.  * 

READ 

(3  23,  0 

(3  23,19  SAY  ; 

"DO  YOU  WANT  TO  CANCEL  THIS  QUERY  [Y/N]?  "  GET  DONE  PICTURE  'Y' 
CLEAR  TYPEAHEAD 
READ 

*  If  the  user  chooses  to  cancel  the  query,  set  the  required  * 

*  flags  to  terminate  all  procedure  loops.  * 

IF  (DONE) 

STOP_LOOP  =  .T. 

M_CHOICE  =  .F. 

EXIT 

ELSE 

STOP.LOOP  =  .F. 

ENDIF 
(3  23,  0 
(3  23,19  SAY  ; 

"do  YOU  WANT  TO  MAKE  ANY  CHANGES  [Y/N]?  "  GET  DONE  PICTURE  'y' 
CLEAR  TYPEAHEAD 
READ 

*  If  the  user  wants  to  change  their  inputs,  set  DONE  flag  to  * 

*  flase  and  repeat  the  current  loop.  * 


IF  (DONE) 

@  23,  0 
DONE  =  .F. 
LOOP 
ELSE 

DONE  =  .T. 


ENDIF 


*  vvvvvvvvvvvv  /^4.  RELATIONAL  OPERATOR  CHECK  vvvvvvvvvvvv  * 


GOOD_RO  =  .T. 
TEMP_LOOP  =  .T. 

DO  WHILE  (TEMP_LOOP) 


wSp: 


IF  (OlA  o'  ') 

DO  RO_CHK  WITH  OlA 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (OIB  o'  ') 

DO  RO_CHK  WITH  OIB 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (02A  o'  ') 

DO  RO_CHK  WITH  02A 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

IF  (02B  o'  ') 

DO  RO_CHK  WITH  02B 
IF  (.NOT.  GOOD_RO) 

EXIT 

ENDIF 

ENDIF 

TEMP_LOOP  =  .F. 

ENDDO 

IF  (.NOT.  GOOD_RO) 

(a  23,  0 
?  CHR(7) 

M_CHOICE  =  .F. 

@  23,  4  SAY  'INVALID  RELATIONAL  OPERATOR.  WOULD  YOU  LIKE  TO 
+  '  TRY  AGAIN  (Y/NJ?  ’  GET  M_CHOICE  PICTURE  'Y' 
CLEAR  TYPEAHEAD 
READ 

*  Give  the  user  the  option  of  either  returning  to  the  * 

*  query  input  screen  or  terminating  the  query  function.  * 

IF  (M_CHOICE) 

@  23,  0 
DONE  =  .F. 

ELSE 

STOP_LOOP  =  .T. 

EXIT 

ENDIF 

ENDIF 

ENDDO 

*  Check  to  see  if  query  termination  condition  has  been  previously 

*  set  to  ' true' . 


IF  (STOP  LOOP) 


X'C-r 

1?^ 


*  WWW  WWW  #5.  BUILD  QUERY  OUTPUT  FORMAT  wwwwww  * 

HDRIA  =  ' ' 

HDRIB  =  ' ' 

HDR2A  =  ' ' 

HDR2B  =  ' ' 

DATA1_S  =  ' ' 

DATA1_L  =  ' ' 

DATA2_S  =  ’ ' 

DATA2_L  =  ' ' 


C0L_HDRA 

=  ’  Max  Min 

Max  ' 

C0L_HDRB 

=  ’  WT  WT  10%  RT  ' 

C0L_LIN 

-  '  1  1  1 

—  1  1  i 

1  1  • 

1  1 

BLK_LINE 

=  REPLICATEC’ 

'  ,80) 

SEP_LINE 

=  REPLICATEC ’_ 

.’,80) 

SQG_LINE 

=  REPLICATEC ’~ 

’,80) 

HDRIA  =  ' 

'  First 

Last 

Max  ’  ; 

+  ’ 

'  Min 

t 

HDRIB  =  ’ 

'  Name 

Name 

Heigh 

Weight 

Weight’  ; 

+ 

'  Weight 

» 

DATAl  S  = 

=  ”LEFT(F_NAME, 

14)+S2+LEFT(L_NAME, 14)+S2+STR(HEIGHT, 5 , 2)+S2'’ ; 

+  ' 

’+STR(WEIGHT,6, 

2 ) +S  2+STR ( MAX_WGHT , 6 , 2 ) +S  2+STR ( M I N_WGHT ,6,2)”; 

+  ' 

’+S2+C0L_LIN” 

HDR2A  =  ' 

r 

AS 

Cat 

Run  ’  ; 

+  ' 

'  Max  ’+C0L_LIN 

HDR2B  = 

» 

Class 

Type 

Age 

Time  ’ ; 

+  '  Run  Time  '+COL_LIN 

DATA2_S  =  "S26+STR(AS_CLASS, 1)+S6+CAT_TYPE+S6+AGE+S5"; 

+  "+TRANSFORM(RUN_TIME, '@R  99:99’ )+S4"; 

+  "+TRANSF0RM(STR(MAX_RT,4), ’@R  99 : 99 ' )+S2+C0L_LIN" 

IF  (QO_SELECT  =  'j') 

HDRIA  =  HDRIA  +  '  LOCAL’ 

HDRIB  =  HDRIB  +  ’  Street  City  Zip  ’; 

+  ’  Phone ’ 

DATA1_L  =  "S2+LOCAL_STRT+S2+LEFT(LOCAL_CITY, 15)+S2"; 

+  "+LEFT(LOCAL_ZIP,5)+S2+TRANSFORM(LOCAL_PHON, ’(aR  999-9999’)” 
DATA2_L  =  ”S2” 

SEP_LINE  =  SEP_LINE  +  REPLICATE( ’ , 57 ) 

SQG_LTNE  =  SQG.LINE  REPLICATE(  ’  '  ’  ,  57) 

ENDIF 

*  wwwwwww  #6.  BUILD  FILTER  STRING  wwwwwww  * 

FILT_STR  =  ’ ’ 

IF  (LEN(LTRIM(F1A))  >  0) 

FILT_STR  =  ’AS_CLASS’  +  OlA  +  F1A 
ENDIF 

IF  (LEN(LTRIM(F1B))  >  0  .AND.  (OlA  <>  OIB)  .AND.  (FlA  <>  FIB)) 

IF  (LEN(F1LT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ’ . AND . AS_CLASS '  +  OIB  +  FIB 
ELSE 

FILT_STR  =  'AS_CLASS'  +  OIB  +  FIB 
ENDIF 
ENDIF 
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IF  (LEN(LTRIM(F2A))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '  .  AND .  I._NAME '  +  02A  +  +  F2A  + 

ELSE 

FILT_STR  =  'L_NAME'  +  02A  +  +  F2A  + 

END  IF 
ENDIF 

IF  (LEN(LTRIM(F2B))  >  0  .AND.  (02A  <>  02B)  .AND.  (F2A  <>  F2B)) 
IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  ' . AND . L_NAME '  +  02B  +  +  F2B  + 

ELSE 

FILT_STR  =  'L_NAME'  +  02B  +  +  F2B  + 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F3))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '.AND.SSAN  ='  +  +  F3  + 

ELSE 

FILT_STR  =  'SSAN  ='  +  +  F3  + 

ENDIF 
ENDIF 
DONE  =  .T. 

*  vvvwvvvvv  in.  ACCESS  DATABASE  &  DIRECT  OUTPUT  vvvvvvvvvv  * 
(§  23,  0 

(9  23,14  SAY  'SEARCHING  DATABASE  FILES  FOR  CORRESPONDING  RECORD(S)' 
SELECT  1 

IF  (.NOT.  FILE(M_NDX_F)) 

INDEX  ON  &M_NDX_STR  TO  &M_NDX 
ENDIF 

SET  INDEX  TO  &M_NDX 
IF  (LEN(FILT_STR)  >  0) 

SET  FILTER  TO  &FILT_STR 
ENDIF 
GOTO  TOP 
DO  CASE 

*  If  none  of  the  database  records  meet  all  the  input  * 

*  constraints,  give  the  user  the  option  to  try  again  * 

*  or  to  terminate  the  query.  * 

CASE  (EOFO) 

DO  ERR_NF 
IF  (M_CHOICE) 

DONE  =  .F. 

LOOP 

ELSE 

EXIT 

ENDIF 

*  If  some  database  records  meet  the  constraints,  ini-  * 

*  tialize  the  print  environment  and  perform  print  loop  * 

*  until  all  records  are  printed.  * 


CASE  (.NOT.  EOFO) 

IF  QO_SELECT  <>  'H' 

SET  PRINT  ON 

SET  DEVICE  TO  PRINT 

IF  QO_SELECT  =  'J* 

(a  0,  1  SAY  CHR(27)  +  CHR(15) 

ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(77) 

END  IF 

MAX_LINES  =  66 
ELSE 

MAX_LINES  =  23 
END  IF 

IF  (QO_SELECT  <>  'j') 

SPACER  =  SPACE(19) 

ELSE 

SPACER  =  SPACE(50) 

END  IF 
CLEAR 

(?  0,  0  SAY  SPACER  +  'CADET  WEIGHT  AND  AEROBIC  STANDARDS'; 

+  '  REPORT' 

@  1,  0 

FIRST_TIME  =  .T. 

DISP_LINE  =  2 

*  vvvvvvvvvv  #8.  DATABASE  RECORD  LOOP  vvvvvvvvvv  * 
DO  WHILE  (.NOT.  EOF()) 

IF  ((DISP.LINE  >  0)  .AND.  (QO.SELECT  <>  'H')) 

IF  (.NOT.  FIRST_TIME) 

EJECT 

ENDIF 

ENDIF 

IF  (FIRST_TIME) 

FIRST_TIME  =  .F. 

ELSE 

DISP_LINE  =  0 
CLEAR 
ENDIF 

*  vvvvvvvvvvvvv  if9 .  PAGING  LOOP  vvvvvvvvvvvvv  * 

DO  WHILE  ((DISP_LINE  <  MAX_LINES)  .AND.  (.NOT.  EOF())) 
REC_NUM  =  RECNOO 
PRNT_FLAG  =  .F. 

VIOL_BAR  =  COL_LIN 
HGHT.SAV  =  HEIGHT 
SEX_SAV  =  SEX 
AGE_GROUP  =  '!' 

IF  (INT(VAL(AGE))  >=  30) 

AGE_GROUP  =  '2' 

ENDIF 
SELECT  2 
SEEK  HGHT_SAV 
MAX  WGHT  =0.00 


MIN_WGHT  =0.00 
IF  (.NOT.  EOFO) 

IF  (SEX_SAV  =  'F' ) 

MAX_WGHT  =  MAX_WT_F 
MIN_WGHT  =  MIN_WT_F 
ELSE 

IF  (SEX_SAV  =  'M') 

MAX_WGHT  =  MAX_WT_M 
MIN_WGHT  =  MIN_WT_M 
END  IF 
END  IF 
ENDIF 
SELECT  3 
SEEK  AGE_GROUP 
MAX_RT  =  0000 
IF  (.NOT.  EOFO) 

IF  (SEX_SAV  =  ’F') 

MAX_RT  =  MAX_RT_F 
ELSE 

IF  (SEX_SAV  =  'M') 

MAX_RT  =  MAX_RT_M 
ENDIF 
ENDIF 
ENDIF 
SELECT  1 
GOTO  REC_NUM 
IF  (WEIGHT  >  MAX_WGHT) 

PRNT.FLAG  =  .T. 

VIOL.BAR  =  STUFF(VT0L_BAR,3,1,'*') 
ENDIF 

IF  (WEIGHT  <  MIN_WGHT) 

PRNT_FLAG  =  .T. 

VIOL_BAR  =  STUFF(VI0L_BAR,7,1, '*’ ) 
ENDIF 

IF  (WEIGHT  >  (MAX_WGHT*.90)) 

PRNT_FLAG  =  .T. 

VI0L_BAR  =  STUFF(VI0L_BAR,11,1,'*') 
ENDIF 

IF  (VAL(RUN_TIME)  >  MAX_RT) 

PRNT_FLAG  =  .T. 

VI0L_BAR  =  STUFF(VIOL_BAR, 15, 1, '*' ) 
ENDIF 

IF  (PRINT_OPT  =  1)  .OR.  (PRNT_FLAG) 


*  If  the  number  of  print  lines  per  cadet  will  * 

*  not  fit  on  one  page,  exit  the  loop  and  go  to  * 

*  the  next  page.  * 

IF  ((MAX_LINES  -  DISP_LTNE)  <  7) 

EXIT 

ELSE 

IF  (DISP_LINE  <=  3) 

HDRIA  =  STUFF(HDR1A,64, 17,C0L_HDRA) 

HDRIB  =  STUFF(HDR1B,64, 17,C0L_HDRB) 

SEP_LINE  =  STUFF(vSEP_r,INE,64,17,REPLICATE('_' ,17)) 


ELSE 

HDRIA  =  STUFF(HDR1A,64, 17,C0L_LIN) 

HDRIB  =  STUFF(HDR1B,64, 17,C0L_LIN) 

ENDIF 

@  DISP_LINE,  0  SAY  HDRIA 
@  DISP_LINE  +1,  0  SAY  HDRIB 

IF  (QO_SELECT  <>  'H') 

@  DISP_LINE  +1,  0  SAY  SEP_LINE 
ENDIF 

@  DISP_LINE  +2,  0  SAY  &DATA1_S 

IF  (QO_SELECT  =  'J') 

@  DISP_LINE  +  2,  80  SAY  &DATA1_L 
ENDIF 

BLK_LINE  =  STUFF(BLK_LINE,64,17,VIOL_BAR) 

@  DISP_LINE  +3,  0  SAY  BLK_LINE 
@  DISP_LINE  +4,  0  SAY  HDR2A 
@  DISP_LINE  +5,  0  SAY  HDR2B 

IF  (QO_SELECT  <>  'H') 

SEP_LINE  =  STUFF(SEP_LINE,64, 17,C0L_LIN) 
SEP_LINE  =  STUFF! SEP_LINE,1, 26, S26) 

@  DISP_LINE  +5,  0  SAY  SEP_LINE 
SEP.LINE  =  STUFF(SEP_LTNE, 1,26, REPLICATE! ,26)) 
ENDIF 

@  DISP_LINE  +6,  0  SAY  &DATA2_S 

IF  !QO_SELECT  =  'J') 

@  DISP.LINE  +  6,  80  SAY  &DATA2_L 
ENDIF 

SQG_LINE  =  STUFF! SQG.LINE, 64,1 7, COL.LIN) 

@  DISP_LINE  +7,  0  SAY  SQG.LINE 
DISP.LINE  =  DISP_LINE  +  8 
ENDIF 
ENDIF 

*  Issue  dBASE  III  PLUS  command  to  go  to  the  * 

*  next  record  which  meets  the  input  constraints.* 

SKIP 

ENDDO 

*  If  the  output  media  is  the  screen,  issue  the  user* 

*  paging  prompt.  * 

IF  !Q0_SELECT  =  ’H') 

@  23,  0  SAY  'PRESS  ANY  KEY  TO  CONTINUE' 

CLEAR  TYPEAHEAD 
WAIT  " 

ENDIF 

ENDDO 

IF  !Q0_SELECT  <>  'H') 

@  DISP_LINE  +  1,  0  say  CHR!10) 

EJECT 


i 
( 


IF  (QO_SELECT  =  'j') 

@  0,  1  SAY  CHR(18) 

ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(80) 

ENDIF 

SET  PRINT  OFF 
ENDIF 

SET  DEVICE  TO  SCREEN 
SET  FILTER  TO 


ENDCASE 

ENDIF 

ENDDO 

CLEAR 


^*1 

t 


*  If  the  user  has  not  previously  entered  a  response  to  terminate  the  * 

*  query  (M_CHOICE  would  be  "false"),  then  give  them  the  opportunity  * 

*  to  do  another  query  or  terminate  the  function.  * 

IF  (M_CH0ICE) 

DO  RCIS_HDR 
DO  M_PR0MPT 
ENDIF 
ENDDO 


*  Close  the  database  files  used  in  this  query. 


SELECT  3 
USE 

SELECT  2 
USE 

SELECT  1 
USE 

F_PARA  =  STUFF ( F.PARA, 1, 1, 'C' ) 
ON  ERROR 

* 

RETURN 


m 


INDV_QRY 


SUMMARY: 

The  INDV_QRY  procedure  provides  the  interface  for  the  user  to  per 
form  queries  on  all  the  data  contained  in  the  Master  record  for 
individual  cadets.  All  data  is  displayed  on  one  screen. 


PROCEDURE  INDV_QRY 


PRIVATE  FYC 
PRIVATE  PRS 
PRIVATE  WRQ 
PRIVATE  PLS 
PRIVATE  SPACER 


ON  ERROR  DO  DB3_Q_ERR  WITH  ERROR( ) ,  MESSAGE!) 
CLEAR 

M  CHOICE  =  .T. 


*  vvvvvvvvvvvvvvvvvvvv  !/l.  MAIN  OUTER  LOOP  vvvvvvvvvvvvvvvvvv  * 


DO  WHILE  (M_CHOICE) 


*  Initialize  operator  and  constraint  fields.  * 


DONE  =  .F. 
FIA  =  ' 

FIB  =  ' 

FlC  =  ' 

F2  =  ’ 


vvvvvvvvvvvvvvvvv 


INTERMEDIATE  SCREEN  LOOP  vvvvvvvvvvvvvvvvv 


DO  WHILE  (.NOT.  DONE) 


CLEAR 
@  5, 
@  5, 


5,  0  TO  15,79 

5,28  SAY  '  INDIVIDUAL  CADET  QUERY  ' 

7,24  SAY  'Enter  Name  or  Social  Security  #' 
9,27  SAY  'First  Name' 


(§  10,26  SAY  'Middle  Name' 
@  11,28  SAY  'Last  Name' 


^  13,33  SAY  'SSAN' 


*  vvvvvvvvvvvvvvvv  IITTERMEDIATE  INPUT  LOOP  vvvvvvvvvvvvvvvv 


DO  WHILE  (.NOT.  DONE) 

(§  9,38  GET  FIA  PICTURE  ' 
(9  10,38  GET  FIB  PICTURE  ' 
(9  11,38  GET  FlC  PICTURE  ' 


(9  13,38  GET  F2  PICTURE  '@R  999-99-9999' 


‘SRvN 


Read  query  screen  inputs  and  prepare  to  process  them.  * 


* 

READ 
(a  23,  0 
@  23,19  SAY  ; 

"DO  YOU  WANT  TO  CANCEL  THIS  QUERY  [Y/N]?  "  GET  DONE  PICTURE  ’Y’ 
CLEAR  TYPEAHEAD 
READ 

*  If  the  user  chooses  to  cancel  the  query,  set  the  required  * 

*  flags  to  terminate  all  procedure  loops.  * 

IF  (DONE) 

STOP_LOOP  =  .T. 

M_CHOICE  =  .F. 

EXIT 

ELSE 

STOP_LOOP  =  .F. 

ENDIF 
(a  23,  0 
@  23, 19  SAY  ; 

"DO  YOU  WANT  TO  MAKE  ANY  CHANGES  [Y/N]?  "  GET  DONE  PICTURE  'Y* 
CLEAR  TYPEAHEAD 
READ 


*  If  the  user  wants  to  change  their  inputs,  set  DONE  flag  to  * 

*  flase  and  repeat  the  current  loop.  * 

IF  (DONE) 

@  23,  0 
DONE  =  .F. 

LOOP 

ELSE 

DONE  =  .T. 

ENDIF 

ENDDO 

*  Check  to  see  if  query  termination  condition  has  been  previously  * 

*  set  to  ' true' .  * 

IF  (ST0P_L00P) 

EXIT 

*  vvvvvvvvvvvv  /)5.  BUILD  QUERY  OUTPUT  FORMAT  vvvvvvvvvvvv  * 

ELSE 

HDRIA  =  ' ' 

HDRIB  =  ' ' 

HDR2A  =  ' ' 

HDR2B  =  ' ' 

HDR3A  =  ' ' 

HDR3B  =  ' ' 

HDR4A  =  ' ' 

HDR4B  =  ' ' 


HDR5A  =  ' ' 

HDR5B  =  ' ' 

HDR6A  =  ' ' 

HDR6B  =  ' ' 

DATA1_S  =  ' ' 

DATA1_L  =  ' ' 

DATA2_S  =  ' ' 

DATA2_L  =  ' ' 

DATA3_S  =  ’ ’ 

DATA4_S  =  ' ' 

DATA5_S  =  ' ' 

DATA5_L  =  ' ' 

DATA6_S  =  ' ' 

DATA6_L  =  ' ' 

HDRIA  =  'First  Middle  Last 

+  '  Birth  ' 

HDRIB  =  'Name  Name  Name  SSAN  '; 

+  '  Matric  Date  Age  Sex' 

DATA1_S  =  "LEFT(F_NAME, 14)+S2+LEFT(M_NAME,7)+S2+LEFT(L_NAME, 14)+S2"; 

+  "+TRANSFORM(SSAN, ’@R  999-99-9999 ' )+S2+MATRrC+S2+DTOC(BrRTHDATE)" ; 
+  "+S3+AGE+S3+SEX" 

HnR2A  =  'AS  AS  Class  DC  FY  FT  FT  Pil  '; 

+  '  Corps  ' 

HDR2B  =  'Yr  Rank  Rtng  Rtng  Rating  Cmp  ALTU  Lies  Work'; 

+  '  Auxiliaries  ' 

DATA2A  =-  '"  '+STR(AS_CLASS, l)+S3+STR(AS_RNK_POS,3)+' /'+CLAS_NUM+S3"; 

+  ' '  -rSTR ( DC_RTNG , 1 ) +S5+STR ( FY_RTNG , 2 ) +S  3+STR ( FT_RTNG , 6 , 2 ) + S  3 " ; 

+  "+FTC+S4+ALT+S5" 

DATA2B  =  "+PLS+S5+WRK+S4+TRANSF0RM(C0RPS_AUX, ’(SR  !!  |  !  !  1  !  !  1  !  !  |  !  !  1  !  !  '  )" 
DATA2  S  =  DATA2A  +  DATA2B 


HDR3A  =  'Cat  Purs  4-Yi  Pri  Waiv  Form  48  Semester 

+  '  FSP  ' 

HDR3B  =  'Type  Cond  Cad.  Sorv  Req  Date  Intrview  Race'; 

+  '  Date  ' 

DATA3_S  =  '"  '+CAT_TYPE+S5+PC_STATUS+S5+FYC+S5+PRS+S5+WRQ+S4"; 

+  " +DTOC ( F0RM_48 )+S2+DT0C ( SRM_I NTR VW ) +S  3+RACE+S4+DT0C ( FSP_DATE ) " 


Weigh 


Run  Run 
Time  Date 


Phys  Phys 
Cat  Date 


HDR4A  =  ' 

+  '  Grad  Comm 

HDR4B  =  'Height  Weight  Date 

+  '  Date  Date  ' 

DATA4_S  ^  '"  '+STR(HEIGHT,5,2)+S2+STR(WE1GHT,6,2)+S2+DT0C(WEIGH_DATE)"; 
+  "+S2+TRANSF0RM(RUN_TIME, '(3R  99 : 99 ' )+S2+DTOC(RUN_DATE)+S3+PHY_CAT" ; 
+  "+S4+DT0C ( PHY_DATE ) +S  2+DTnC ( GR An_DATE ) +S  2+DTOC ( COM_DATE ) +S3" 


SAT 


HDR5A  =  '  Schl  Schl  Exp  GPA 

+  '  ACT  ' 

HDR5B  =  'Major  Type  Date  Cum  Sem  Cum  Math  Verb'; 

+  '  Cum  Math  Engl  NSci  SSci' 

DATA5A  =  '"  '+MAJOR+S3+STR(SCHLR_TYPE,3, 1 )+S2+DTOC(SCHLR_nATE)+S2"; 

+  "+STR ( CUM_GPA ,4,2) +S2+STR (SEM_GPA,4,2)+S2+STR( S AT_CUM , 4 ) +S  3 " ; 
+  "+STR(SAT_MATH,3)+S3+STR(SAT_VERB,3)+S3+STR(ACT_CUM,2)+S3" 
n ATA5  B  =  "+STR ( ACT_MATH , 2 ) +S4+STR ( ACT_ENGT. , 2 ) +S4+STR ( ACT_NSC 1 , 2 ) +S4" ; 
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+  "+STR(ACT_SSCI,2)" 

DATA5_S  =  DATA5A  +  DATA5B 

HDR6A  =  'AFOQT  AFOQT  Min  Req 

HDR6B  =  ' Quan  Verb  Pil  Nav  AcAp  Date  Math  Engl  Frln' 

DATA6_S  =  '+STR(AF0QT_QUAN,2)+S4+STR(AF0QT_VERB,2)+S4"; 

+  "+STR ( AFOQT_PLT , 2 ) +S  3+STR ( AFOQT_NAV , 2 ) +S  3+STR ( AFOQT_AA , 2 ) " 
+  "+S  3-(-DTOC  ( AFOQT_DATE )  +S  3+MRM+S  5+MRE+S5+MRF+S  2  " 

SEP_LINE  =  REPLICATEC ,80) 

SQG_LINE  =  REPLICATEC ,80) 

IF  (Q0_SELECT  =  'j') 

HDRIA  =  HDRIA  +  '  LOCAL' 

HDRIB  =  HDRIB  +  ’  Street  City  Zip 

+  '  Phone' 

DATA1_L  =  "S2+L0CAL_STRT+S2+LEFT(L0CAL_CITY, 15)+S2"; 

+  "+LEFT(L0CAL_ZIP,5)+S2+TRANSF0RM(L0CAL_PH0N, '@R  999-9999') 

HDR2A  =  HDR2A  +  '  Corps' 

HDR2B  =  HDR2B  +  '  Position’ 

DATA2_L  =  "S2+C0RPS_P0S" 

HDR3A  =  HDR3A  +  '  PERMANENT' 

HDR3B  =  HDROB  +  '  Street  City  '; 

+  '  ST  Zip  Phone' 

DATA3_L  =  "S2+LEFT(PERM_STRT, 19)+S2+LEFT(PERM_CITY, 19)+S2"; 

+  "+PERM_STAT+S2+TRANSF0RM(PERM_ZIP, '@R  99999-NNNN' )+S2"; 
+  "+TRANSF0RM(PERM_PH0N, '@R  (999)999-9999')" 

HDR6A  =  HDR6A  +  '  Significant’ 

HDR6B  =  HDR6B  +  '  Information' 

DATA6_L  =  "S2+0THER_INF0" 

SEP_LINE  =  SEP_LINE  +  REPLICATEC '_' ,57) 
bQG_LINE  =  SQG_LINE  +  REPLICATEC 57) 

END  IF 

*  vvvvvvvvvvvvvv  BUILD  FILTER  STRING  vvvvvvvvvvvvvv  * 

FILT_STR  =  ' ' 

IF  (LENCLTRIMCFIA))  >  0) 

FILT_STR  =  'F_NAME  ='  +  "  +  FI  A  +  " '" 

END  IF 

IF  (LEN(LTRIM(F1B))  >  0) 

IF  (LENCFILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '.AND.M_NAME  ='  +  " '"  +  FIB  +  " '" 

ELSE 

FILT_STR  =  'M_NAME  ='  +  " +  FIB  +  . 

END  IF 
END  IF 

IF  (LENCLTRIMIFIC))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FTI,T_STR  =  FTT-T_STR  +  '  .  AND .  L_NAME  ='  +  " +  FlC  +  " 

ELSE 


FILT_STR  =  'L_NAME  ='  +  '” "  +  FlC  +  ""' 

END  IF 
END  IF 

IF  (LEN(LTRIM(F2))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '.AND.SSAN  ='  +  +  F2  + 

ELSE 

FILT_STR  =  'SSAN  ='  +  "  +  F2  + 

END  IF 
ENDI^^ 

DONL  =  .T. 

*  wvvvvvvvv  #7.  ACCESS  DATABASE  &  DIRECT  OUTPUT  vvvvvvvvvv  * 

IF  (LEN(FILT_STR)  >  0) 

@  23,  0 

(§  23,14  SAY  'SEARCHING  DATABASE  FILES  FOR  CORRESPONDING  RECORD(S)' 
SELECT  1 

IF  (.NOT.  FILE(M_NDX_F)) 

INDEX  ON  &M_NDX_STR  TO  &M_NDX 
ENDIF 

SET  INDEX  TO  &M_NDX 
IF  (LEN(LTRIM(F2))  =  0) 

COUNT  FOR  &FILT_STR  TO  REC_CNT 
IF  (REC_CNT  >  1) 

@  23,  0 
?  CHR(7) 

(3  23,  0  SAY  'NAME  ASSIGNED  TO  MORE  THAN  ONE  RECORD  (ENTER'; 

+  '  SSAN).  PRESS  ANY  KEY  &  TRY  AGAIN.' 

WAIT  ' ' 

DONE  =  .F. 

LOOP 

ENDIF 

ENDIF 

SET  FILTER  TO  &FILT_STR 
GOTO  TOP 
DO  CASE 

*  If  none  of  the  database  records  meet  ail  the  input  * 

*  constraints,  give  the  user  the  option  to  try  again  * 

*  or  to  terminate  the  query.  * 

CASE  (EOFO) 

DO  ERR_NF 
IF  (M_CHOICE) 

DONE  =  .F. 

LOOP 

ELSE 

EXIT 

ENDIF 

*  If  some  database  records  meet  the  constraints,  ini-  * 

*  tialize  the  print  environment  and  perform  print  func-* 

*  tion  until  all  data  is  printed.  * 
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CASE  (.NOT.  EOFO) 

REC_NUM  =  RECNOO 
IF  QO_SELECT  <>  'H' 

SET  PRINT  ON 

SET  DEVICE  TO  PRINT 

IF  QO_SELECT  =  'j' 

@  0,  1  SAY  CHR(27)  +  CHR(15) 

ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(77) 

ENDIF 
ENDIF 

IF  (QO_SELECT  <>  'j’) 

SPACER  =  SPACE(27) 

ELSE 

SPACER  =  SPACE(59) 

ENDIF 

CLEAR 

DISP  LINE  =  0 


IF  (QO_SELECT  <>  'H') 

DISP_LINE  =  5 
ENDIF 

(a  DISP_LINE,  0  SAY  SPACER  +  'INDIVIDUAL  CADET  REPORT 

IF  (QO_SELECT  <>  'H') 

DISP_LINE  =  DISP_LINE  +  I 
ENDIF 

@  DISP_LINE  +  2,  0  SAY  HDRIA 
(a  DISP_LINE  +  3,  0  SAY  HDRIB 

IF  CQO_SELECT  <>  'H') 

@  DISP.LINE  +  3,  0  SAY  SEP.LINE 
ENDIF 

(a  DISP_LINE  +  4,  0  SAY  &DATA1_S 

IF  (QO_SELECT  =  'j') 

(a  DISP_LINE  +  4,  80  SAY  &DATA1_L 
ENDIF 


IF  (QO_SELECT  <>  ’ll’) 

DISP_LINE  =  DISP_LINE  +  1 
ENDIF 

(a  DISP_LINE  +  6,  0  SAY  HDR2A 
@  DISP_LINE  +7,  0  SAY  HDR2B 

IF  (Q0_SELECT  <>  ’H’) 

@  DISP_LINE  +  7,  0  SAY  SEP_LINE 
ENDIF 
FTC  =  ’N’ 

ALT  =  ’N’ 

PLS  =  ’N’ 

WRK  =  ’N’ 

IF  FT_COMP 
FTC  =  ’Y’ 

ENDIF 


mmm 


( 


IF  ALTU 
ALT  = 

END  IF 

IF  PLT_LICENS 
PLS  =  'Y' 

END  IF 
IF  WORK 

WRK  =  'Y' 

ENDIF 

CLAS_VAL  =  AS_CLASS 
SELECT  2 
SEEK  CLAS_VAL 
IF  (.NOT.  EOFO) 

CLAS_NUM  =  STR(AS_CL_TOT,3) 

ELSE 

CLAS_NUM  =  '  ?  ' 

ENDIF 
SELECT  1 
GOTO  REC_NUM 

(§  DISP_LINE  +  8,  0  SAY  &DATA2_S 

IF  (QO_SELECT  =  'j') 

(3  DISP_LINE  +  8,  80  SAY  &DATA2_L 
ENDIF 

IF  (QO_SELECT  <>  'H') 

DISP_LINE  =  DISP_LINE  +  1 
ENDIF 

(3  DISP.LINE  +  10,  0  SAY  HDR3A 
@  DISP_LINE  +  11,  0  SAY  HDR3B 

IF  (QO_SELECT  <>  'H') 

@  DISP.LINE  +  11,  0  SAY  SEP_LINE 
ENDIF 
FYC  =  'N' 

PRS  =  'N' 

WRQ  =  'N' 

IF  FOUR_YR 
FYC  =  'Y' 

ENDIF 

IF  PRIOR_SVC 
PRS  =  'Y* 

ENDIF 

IF  WAIVER_REQ 
WRQ  =  'Y' 

ENDIF 

(3  DISP_LINE  +  12,  0  SAY  &DATA3_S 

IF  (QO_SELECT  =  'J') 

@  DISP_LINE  +12,  6A  SAY  &DATA3_L 
ENDIF 

IF  (QO_SELECT  <>  ’»’) 

DISP_LINE  =  DISP_LINE  +  1 
ENDIF 


L«*  . 
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(a  DISP_LINE  +  14,  0  SAY  HDR4A 
@  DISP_LINE  +  15,  0  SAY  HDR4B 

IF  (QO_SELECT  <>  'H') 

@  DISP_LINE  +  15,  0  SAY  SEP_LINE 
END  IF 

@  DISP_LINE  +  16,  0  SAY  &DATA4_S 


I? 
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IF  (QO_SELECT  <>  'H') 

DISP_LINE  =  DISP_LINE  +  1 
ENDIF 

@  DISP_LINE  +  18,  0  SAY  HDR5A 
(a  DISP_LINE  +  19,  0  SAY  HDR5B 

IF  (QO_SELECT  <>  'H') 

@  DISP_LINE  +  19,  0  SAY  SEP_LINE 
ENDIF 

DL  =  DISP_LINE  +  20 
The  position  of  the  following  line  is  critical  for  it  to  print  properly.  * 


*  The  string  varaible  is 

*  <=  256  characters  when 

so  long  that  DOS  will  not  accept 
combined  with  the  other  commands 

it  unless  it 
on  the  same 

is  * 
line.  * 

ii: 

t 

******yf'A’*Vr**Vr'A'*'A''3V**-A* 

1 

J.' 

@  DL,  0  SAY  &DATA5_S 

****************Vf**** 

IF  (Q0_SELECT  <>  'H') 

DISP_LINE  =  DISP_LINE  +  1 
ENDIF 

(a  DISP_LINE  +  22,  0  SAY  HDR6A 
(§  DISP_LINE  +  23,  0  SAY  HDR6B 

IF  (QO.SELECT  <>  'H') 

(a  DISP.LINE  +  23,  0  SAY  SEP_IJNE 
ENDIF 
MRM  =  'n' 

MRE  =  'N' 

MRF  =  'N' 

IF  M_R_MATH 
MRM  =  'Y' 

ENDIF 

IF  M_R_ENGL 
MRE  =  'Y' 

ENDIF 

IF  M_R_FLAN 
MRF  =  'Y' 

ENDIF 

(a  DISP_LINE  +  24,  0  SAY  &DATA6_S 

IF  (Q0_SELECT  =  'J') 

@  DISP_LINE  +24,  54  SAY  &DATA6_L 
ENDIF 

IF  (Q0_SELECT  <>  'H') 

@  DISP_I.TNE  +  26,  0  SAY  SQG_IJNE 
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ENDIF 


*  If  the  output  media  is  the  screen,  issue  the  user* 

*  paging  prompt.  * 

IF  (QO_SELECT  =  'H') 

(9  0,52  SAY  *  (Press  any  key  to  continue)' 

CLEAR  TYPEAHEAD 
WAIT  ' ' 

ENDIF 

IF  (Q0_SELECT  <>  'H') 

(9  DISP_LINE  +  27,  0  SAY  CHR(  10) 

EJECT 

IF  (Q0_SELECT  =  'j') 

@  0,  1  SAY  CHR(18) 

ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(80) 

ENDIF 

SET  PRINT  OFF 
ENDIF 

SET  DEVICE  TO  SCREEN 
SET  FILTER  TO 

ENDCASE 

*  If  the  user  fails  to  enter  any  data  in  the  input  fields,  * 

*  issue  a  prompt  for  them  to  please  enter  data  (if  they  had  * 

*  intended  to  cancel  the  query,  they  should  not  have  gotten  * 

*  this  far  in  the  procedure).  * 

ELSE 

(3  23,  0 
?  CHR(7) 

(9  23,  4  SAY  'PLEASE  ENTER  DATA.  PRESS  ANY  KEY  TO  CONTINUE.' 
CLEAR  TYPEAHEAD 
WAIT  '  ' 

(§  23,  0 
DONE  =  .F. 

ENDIF 

ENDIF 

ENDDO 

CLEAR 

*  If  the  user  has  not  previously  entered  a  response  to  terminate  the  * 

*  query  (M_CH0ICE  would  be  "false"),  then  give  them  the  opportunity  * 

*  to  do  another  query  or  terminate  the  function.  * 

IF  (M_CH0ICE) 

DO  RCIS_HDR 
DO  M_PR0MPT 
ENDIF 
ENDDO 

*  Close  the  database  files  used  in  this  query,  * 
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SELECT  2 
USE 

SELECT  1 
USE 

F_PARA  =  STUFF(F_PARA, 1, 1, 'C' ) 
ON  ERROR 


RETURN 


PAYI_QRY 


^  SUMMARY: 

•  The  PAYI_QRY  procedure  provides  the  interface  for  the  user  to  per- 

■  form  queries  on  all  the  data  contained  in  the  associated  Pay  re- 

•  cords  of  an  individual  cadet.  All  data  is  displayed  on  one  screen 


PROCEDURE  PAYI_QRY 
* 

PRIVATE  FYC 
PRIVATE  PRS 
PRIVATE  WRQ 
PRIVATE  PLS 
PRIVATE  SPACER 

* 

ON  ERROR  DO  DB3_Q_ERR  WITH  ERROR(),  MESSAGE!) 

CLEAR 

M_CHOICE  =  .T. 

*  vvvvvvvvvwvvvvvvvvv  //I.  MAIN  OUTER  LOOP  vvvvvvvvvvvvvvvvvv  * 
DO  WHILE  (M_CHOICE) 

*  Initialize  operator  and  constraint  fields.  * 

DONE  =  .F. 

FIA  =  '  ' 

FIB  =  ’  ' 

FlC  =  '  ' 

F2  =  '  ' 


*  vvvvvvvvvvvvvvvvv  y/2.  INTERMEDIATE  SCREEN  LOOP  vvvvvvvvvvvvvvvvv  * 

DO  WHILE  r.NOT.  DONE) 

CLEAR 

@  5,  0  TO  15,79 

@  5,26  SAY  '  INDIVIDUAL  CADET  PAY  QUERY  ' 

@  7,24  SAY  'Enter  Name  or  Social  Security  //' 

(a  9,27  SAY  'First  Name' 

(9  10,26  SAY  'Middle  Name' 

@  11,28  SAY  'Last  Name' 

@  13,33  SAY  'SSAN' 


*  vvvvvvvvvvvvvvvv  #3.  INTERMEDIATE  INPUT  LOOP  vvvvvvvvvvvvvvvv  * 


DO  WHILE  (.NOT.  DONE) 

@  9,38  GET  FIA  PICTURE  '!!!!!!!!! 
@  10,38  GET  FIB  PICTURE  '!!!!!!!!! 
(a  11,38  GET  FlC  PICTURE  '!!!!!!!!! 


!!!!!' 
!!!!!' 
I  I  I  I  I  ' 


@  13,38  GET  F2  PICTURE  '(aR  999-99-9999' 


*  Read  query  screen  inputs  and  prepare  to  process  them. 


'.V, 


READ 
(§  23,  0 
@  23,19  SAY  ; 

"DO  YOU  WANT  TO  CANCEL  THIS  QUERY  [Y/N]?  "  GET  DONE  PICTURE  'Y' 
CLEAR  TYPEAHEAD 
READ 

*  If  the  user  chooses  to  cancel  the  query,  set  the  required  * 

*  flags  to  terminate  all  procedure  loops.  * 


IF  (DONE) 

STOP_LOOP  =  .T. 

M_CHOICE  =  .F. 

EXIT 

ELSE 

STOP_LOOP  =  .F. 

ENDIF 
(9  23,  0 
@  23,19  SAY  ; 

"DO  YOU  WANT  TO  MAKE  ANY  CHANGES  [Y/N]?  "  GET  DONE  PICTURE  'Y' 
CLEAR  TYPEAHEAD 
READ 

*  If  the  user  wants  to  change  their  inputs,  set  DONE  flag  to  * 

*  flase  and  repeat  the  current  loop.  * 

IF  (DONE) 

(9  23,  0 
DONE  =  .F. 

LOOP 

ELSE 

DONE  =  .T. 

ENDIF 

ENDDO 


*  Check  to  see  if  query  termination  condition  has  been  previously  * 

*  set  to  ' true' .  * 

IF  (STOP_LOOP) 

EXIT 

ELSE 

*  vvvvvvvvvvvv  .  BUILD  QUERY  OUTPUT  FORMAT  vvvvvvvvvvvv  * 

HDRIA  =  ' ' 

HDRIB  =  '  ' 

HDR2A  =  ' ' 

HDR2B  =  ' ’ 

DATA1_S  =  ' ' 

DATA1_L  =  ' ' 

DATA2_S  =  ’ ' 

DATA2  L  =  " 


193 


HDRIA  =  'First  Middle  Last 

+  '  AS  Cat  Schl' 

HDRIB  =  'Name  Name  Name  SSAN  '; 

+  'Matric  Class  Type  Type' 

DATA1_S  =  "LEFTCFN, 14)+S2+LEFT(MN, 7)+S2+LEFT(LN, 14)+S2"; 

+  "+TRANSF0RM(F2, ’(aR  999-99-9999 ' )+S2+MT+S3+STR(ASC, 1 )+S6" ; 

+  "+CT+S5+STR(ST,3,  D" 

HDR2A  =  '  Pay  Start  Stop  Res  Book  FT  ' ; 

+  '  ATP  FSP  Num  Cum' 

HnR2B  =  'Period  Pay  Date  Pay  Date  Stat  Tuition  Fees  Days'; 

+  '  Days  Days  Days  Days ' 

DATA2_S  =  " S  2+STR ( REC_NUM , 2 ) +S4+DT0C ( PAY_DATE 1 ) +S  2+DTOC ( PAY_DATE2 ) +S  3" ; 

+  "+RES_STATUS+S4+STR(TUITI0N , 7 , 2 )+S3+STR( BOOK_FEES , 6 , 2 )+S3+STR( FT_DAYS , 2 )+S4" ; 
+  "+STR ( ATP_DAYS , 2 ) +S4+STR( FSP_DAYS , 2 ) +S4+STR ( SUB_DAYS , 3 ) +S2+STR ( TOT_DAYS , 4 ) " 

* 

DATA_TOTS  =  "’(Column  Totals)-->  ' +STR(TDT_TUIT, 8 , 2)+S2" ; 

+  "+STR ( TOT_BKFE , 7 , 2 ) +S  3+STR ( TOT_FTDY , 2 ) +S4+STR ( TOT_ATPD , 2 ) " ; 
+  "+S4+STR(T0T_FSPD,2)" 

SEP_LINE  =  REPLICATEC ,80) 

SQG_LINE  =  REPLICATEC'"' ,80) 

* 

IF  (Q0_SELECT  =  'j') 

DATA1_L  =  "S2" 

DATA2_L  =  "S2" 

SEP_LINE  =  SEP_LINE  +  REPLICATE( , 57) 

SQG_LINE  =  SQG_LINE  +  REPLICATEC 57 ) 

ENDIF 

*  vvvvvvvvvvvvvv  #6.  BUILD  FILTER  STRING  vvvvvvvvvvvvvv  * 


FILT_STR  =  ' ' 

IF  (LEN(LTRIM(F1A))  >  0) 

FILT_STR  =  'F.NAME  +  FIA  +  " 

ENDIF 

IF  (LENCLTRIMCFIB))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '.AND.M_NAME  ='  +  " '"  +  FIB  +  " 
ELSE 

FILT_STR  =  'M_NAME  FIB  + 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F1C))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '.AND.L_NAME  ■^'  +  " '"  +  FlC  +  '"" 
ELSE 

FILT_STR  =  'L_NAME  ='  +  '""  +  FlC  +  " '" 

ENDIF 

ENDIF 

IF  (LEN(LTRIM(F2))  >  0) 

IF  (LEN(FILT_STR)  >  0) 

FILT_STR  =  FILT_STR  +  '.AND. SSAN  ='  +  +  F2  + 

ELSE 

FILT_STR  =  'SSAN  =’  +  +  F2  f  " 

ENDIF 

ENDIF 
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DONE  =  .T. 

*  vvvvvvvvvv  #7.  ACCESS  DATABASE  &  DIRECT  OUTPUT  vvvvvvvvvv  * 

IF  (LEN(FILT_STR)  >  0) 

@  23,  0 

(a  23,14  SAY  'SEARCHING  DATABASE  FILES  FOR  CORRESPONDING  RECORD(S) 
SELECT  1 

IF  (.NOT.  FILE(M_NDX_F)) 

INDEX  ON  &M_NDX_STR  TO  &M_NDX 
ENDIF 

SET  INDEX  TO  &M_NDX 
IF  (LEN(LTRIM(F2))  ^  0) 

COUNT  FOR  &FILT_STR  TO  REC_CNT 

IF  (REC_CNT  >  1) 

(a  23,  0 
?  CHR(7) 

@  23,  0  SAY  'NAME  ASSIGNED  TO  MORE  THAN  ONE  RECORD  (ENTER'; 

+  '  SSAN).  PRESS  ANY  KEY  &  TRY  AGAIN.' 

WAIT  ' ' 

DONE  =  .F. 

LOOP 

ENDIF 

ENDIF 

SET  FILTER  TO  &FILT_STR 
GOTO  TOP 
DO  CASE 

*  If  no  Master  record  exists  for  the  input  key  con-  * 

*  straints,  give  the  user  the  option  to  try  again  or  * 

*  to  terminate  the  query.  * 

CASE  E0F( ) 

DO  ERR_NF 
IF  (M_CHOICE) 

DONE  =  .F. 

LOOP 

ELSE 

EXIT 

ENDIF 

*  If  some  database  records  meet  the  constraints,  ini-  * 

*  tialize  the  print  environment  and  perform  print  loop  * 

*  until  all  records  are  printed.  * 

CASK  .NOT.  EOF() 

F2  =  SSAN 
FN  =  F_NAME 
MN  =  M_NAME 
LN  =  L_NAME 
MT  =  MATRIC 
ASC  =  AS_CLASS 
CT  =  CAT.TYPE 
ST  =  SCHLR_TYPE 
SELECT  2 


i  •"a  • 
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IF  (.NOT.  FILE(P_NDX_F)) 

INDEX  ON  &P_NDX_STR  TO  &P_NnX 
END  IF 

SET  INDEX  TO  &P_NDX 
SET  FILTER  TO  SSAN  =  F2 
SEEK  F2 
DO  CASE 

*  If  none  of  the  database  records  meet  all  the  * 

*  input  constraints,  give  the  user  the  option  to* 

*  try  again  or  to  terminate  the  query.  * 

CASE  EOF() 

DO  ERR_NF 
IF  (M_CHOICE) 

DONE  =  .F. 

LOOP 

ELSE 

EXIT 

ENDIF 

*  If  some  database  records  meet  the  constraints,  * 

*  initialize  the  print  environment  and  perform  * 

*  print  loop  until  all  records  are  printed.  * 

CASE  .NOT.  EOF() 

IF  QO_SELECT  <>  'H' 

SET  PRINT  ON 

SET  DEVICE  TO  PRINT 

IF  QO_SELECT  =  'J' 

@  0,  1  SAY  CHR(27)  +  CHR(15) 

ELSE 

(a  0.  1  SAY  CHR(27)  +  CHR(77) 

ENDIF 

ENDIF 

IF  (QO_SELRCT  <>  'j') 

SPACER  =  SPACE(23) 

ELSE 

SPACER  =  SPACE(57) 

ENDIF 

CLEAR 

DISP_LINE  =  0 

IF  (QO_SELECT  <>  'H') 

DISP_LINE  =  5 
ENDIF 

@  DISP_LINE,  0  SAY  ; 

SPACER  +  ’ INDIVIDUAL  CADET  PAY  REPORT* 

IF  (QO_SELECT  <>  'H') 

DISP_LINE  =  DISP_LINE  +  1 
ENDIF 

@  DISP_LINE  +2,  0  SAY  HDRIA 
(a  DISP_LINE  +  3,  0  SAY  HDRIB 


IF  (QO_SELECT  <>  'H') 

@  DISP_LINE  +3,  0  SAY  SEP_LINE 
ENDIF 

@  DISP_LINE  +4,  0  SAY  SDATA1_S 

* 

IF  (QO_SELECT  =  'j') 

@  niSP_T,INE  +  4,  80  SAY  &DATA1_L 
ENDIF 

* 

IF  (QO_SELECT  <>  'H') 

DISP_LINE  =  DISP_LINE  +  1 
ENDIF 

@  DISP_LINE  +6,  0  SAY  HDR2A 
<§  DISP_LINE  +  7,  0  SAY  HDR2B 

* 

IF  (Q0_SELECT  <>  'H') 

@  DISP_LINE  +7,  0  SAY  SEP_LINE 
ENDIF 

DISP_LINE  =  DISP_LINE  +  8 

REC_NUM  =  1 

TOT_DAYS  =  0 

TOT_TUIT  =  0 

TOT_BKFE  =  0 

T0T_FTDY  =  0 

T0T_ATPD  =  0 

T0T_FSPD  =  0 

*  vvvvv  #8.  DATABASE  RECORD  LOOP  vvvvv  * 

DO  WHILE  (REC_NUM  <=  16)  .AND.  (.NOT.  EOF()) 
SUB.DAYS  =  (PAY_DATE2-PAY_DATE1)+1-FT_DAYS; 

-FSP_DAYS-ATP_DAYS 
T0T_DAYS  =  TOT.DAYS  +  SUB_DAYS 
T0T_TUIT  =  T0T_TUIT  +  TUITION 
TOT_BKFE  =  T0T_BKFE  +  BOOK_FEES 
TOT_FTDY  =  TOT_FTDY  +  FT_DAYS 
TOT_ATPD  =  TOT_ATPD  +  ATP_DAYS 
TOT_FSPD  =  TOT_FSPD  +  FSP_DAYS 
DL  =  DISP_LINE 

*  The  position  of  the  following  line  is  critical  for  it  to  print  properly.  * 

*  The  string  varaible  is  so  long  that  DOS  will  not  accept  it  unless  it  is 

*  <=  256  characters  when  combined  with  the  other  commands  on  the  same  line.* 

■iV  * -A- Vf  Vr  Vr  y?  * -/r -jV  *  VfVf  Vf  Vf  V<”>VV?  Vr  Vr  tV  Vc  iV  *  ■A’tV  tV ’jVtV 

@  DL,  0  SAY  &DATA2_S 

*jV'>Vy?’*‘5V';V-}V-5VyrVr’>VVfyryryr'jV’5VVfVf‘;VyfVfVryrypyryrynViVyrTA’>Vyr 

IF  (QO_SELECT  =  'j') 

@  DISP_LINE,  80  SAY  6rDATA2_L 
ENDIF 

DISP_LINE  =  DISP_L1NE  +  1 

■>v 

IF  (QO_SELECT  <>  '»') 

DISP_LINE  =  DTSP_LINE  +  1 
ENDIF 


REC  SUM  =  REC  NUM  +  1 


*  Issue  dBASE  III  PLUS  command  to  go  to  * 

*  the  next  record  which  meets  the  input  * 

*  constraints.  * 


SKIP 

ENDDO 

IF  (QO_SELECT  <>  'H') 

@  DISP_LINE  -  1,  0  SAY  SEP_LINE 
ENDIF 

(a  DISP_LINE,  0  SAY  &DATA_TOTS 

IF  (QO_SELECT  <>  'H') 

@  DISP_LINE  +2.  0  SAY  SQG_LINE 
ENDIF 

*  If  the  output  media  is  the  screen,  issue  - 

*  the  user  paging  prompt.  * 

IF  (QO_SELECT  =  'H') 

@  0,52  SAY  '(Press  any  key  to  continue)' 

CLEAR  TYPEAHEAD 
WAIT  ' ' 

ENDIF 

IF  (Q0_SELECT  <>  'H') 

@  DISP.LINE  +  27,  0  SAY  CHR(IO) 

EJECT 

IF  (QO.SELECT  =  'j') 

@  0,  1  SAY  CHR(18) 

ELSE 

@  0,  1  SAY  CHR(27)  +  CHR(80) 

ENDIF 

SET  PRINT  OFF 
ENDIF 

SET  DEVICE  TO  SCREEN 
SET  FILTER  TO 

ENDCASE 

ENDCASE 

If  the  user  fails  to  enter  any  data  in  the  input  fields,  * 
issue  a  prompt  for  them  to  please  enter  data  (if  they  had  * 
intended  to  cancel  the  query,  they  should  not  have  gotten  * 
this  far  in  the  procedure).  * 


5E 

@  23,  0 
?  CHR(7) 

(a  23,  4  SAY  'PLEASE  ENTER  DATA.  PRESS  ANY  KEY  TO  CONTINUE.' 
CLEAR  TYPEAHEAD 
WAIT  ' ' 

@  23,  0 


ENDIF 
END  IF 
ENDDO 
CLEAR 

*  If  the  user  has  not  previously  entered  a  response  to  terminate  the  * 

*  query  (M_CHOICE  would  be  "false"),  then  give  them  the  opportunity  * 

*  to  do  another  query  or  terminate  the  function.  * 

IF  (M_CHOICE) 

DO  RCIS_HDR 
DO  M_PROMPT 
ENDIF 
ENDDO 

*  Close  the  database  files  used  in  this  query.  * 


SELECT  1 
USE 

SELECT  2 
USE 

F_PARA  =  STUFF ( F_P ARA, 1,1,' C*) 
ON  ERROR 

* 

RETURN 
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HELP  SCRN 


SUMMARY: 

* 

The  HELP_SCRN 

procedure  builds  a 

help  menu  at 

the  bottom  of  each 

* 

query  input  screen  which  provides 

;  an  example 

of  how  to  enter  query 

* 

requests . 

* 

INVOKING  PROCEDURES: 

* 

■k 

Procedure 

Name 

Location 

k 

WPSS_QRY 

RCIS_P3.PRG 

k 

SCHA_QRY 

RCIS_P3.PRG 

k 

DCFY_QRY 

RCIS_P3.PRG 

* 

CLAS_QRY 

RCIS_P3.PRG 

* 

HRAX_QRY 

RCIS_P3.PRG 

* 

CGDT_QRY 

RCIS_P3.PRG 

* 

SEDT_QRY 

RCIS_P3.PRG 

* 

WTAR_QRY 

RCIS_P3.PRG 

* 

INDV_QRY 

RCIS_P3.PRG 

k 

PAYI_QRY 

RCIS_P3.PRG 

PROCEDURE  HELP_SCRN 

•/v 

HLP_01  =  ’>=' 

HLP_02  =  '  <' 

HLP_V1  =  'ANDERSON  ' 

HLP_V2  =  'SMITH  ' 

(9  17,11  SAY  "Query  Item  Operate 
@  18,11  TO  18,79 

(9  19,  0  SAY  "  EXAMPLE  Last  Name 
@  20,33  SAY  "field  defaults  to 
(9  19,26  GET  HLP_01 
0  19,59  GET  HLP_V1 
(9  20,26  GET  HLP_02 
@  20,59  GET  HLP_V2 
(9  16,  0  TO  21,10 
@  16,10  TO  21,79 
CLEAR  GETS 


Operatorsf<, >,=,<>, <=,>=)  Query  Values 

Last  Name  *  Absence  of  Operator" 


RETURN 
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ERR  NF 


*  SUMMARY: 


The  ERR_NF  procedure  displays  an  error  message  informing  the  user  * 
that  a  record  with  the  requested  key  value  doesn't  exist  and  then  * 
accepts  a  continuation  option.  * 


*  INVOKING  PROCEDURES: 


Procedure  Name 

WPSS_QRY 

SCHA_QRY 

DCFY_QRY 

CLAS_QRY 

HRAX_QRY 

CGDT_QRY 

SEDT_QRY 

WTAR_QRY 

1NDV_QRY 

PAYI_QRY 


Location 


RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS  P3.PRG 


* 

* 

* 


RCIS  HDR 


* 

* 


*  SUMMARY: 


The  RCIS_HDR  procedure  redisplays  the  selected  mode  by  repainting  * 
the  pop-up  menus.  -  * 


INVOKING  PROCEDURES: 


Procedure  Name 

WPSS_QRY 

SCHA_QRY 

DCFY_QRY 

CLAS_QRY 

HRAX_QRY 

CGDT_QRY 

SEDT_QRY 

WTAR_QRY 

INDV_QRY 

PAYI_QRY 


Locat ion 


RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS  P3.PRG 


PROCEDURE  RCIS_HDR 
* 

CLEAR 

(§  1,  0  TO  3,79 

@  2,22  SAY  'ROTC  CADET  INFORMATION  SYSTEM  (RCIS)' 
CALL  MENU  WITH  F.PARA 
CALL  MENU  WITH  G.PARA 
IF  F_SELECT  =  'M' 

CALL  MENU  WITH  QS_PARA 
CALL  MENU  WITH  QO_PARA 
ELSE 

IF  (F_SELECT  <>  'L') 

CALL  MENU  WITH  R_PARA 
END  IF 
ENDIF 
@  24,  0 


RETURN 


M  PROMPT 


I 


*  SUMMARY:  * 

*  The  M_PROMPT  procedure  displays  a  continuation  message  and  accepts  * 

*  the  user  option.  * 


*  INVOKING  PROCEDURES: 


Procedure  Name 

WPSS_QRY 

SCHA.QRY 

DCFY_QRY 

CLAS_QRY 

HRAX_QRY 

CGDT_QRY 

SEDT_QRY 

WTAR_QRY 

INDV_QRY 

PAYI_QRY 


Location 


RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS  P3.PRG 


PROCEDURE  M_PROMPT 

it 

@  21,  0 

M_CHOICE  =  .T. 

(a  21,16  SAY  'DO  YOU  WANT  TO  CONTINUE  WITH  THIS  MODE  [Y/N)?  ’ ; 

GET  M_CHOICE  PICTURE  'Y' 

CLEAR  TYPEAHEAD 
READ 

IF  .NOT.  M_CHOICE 

@  21,  0 

@  21,33  SAY  'CLOSING  FILES' 

(3  24,  0 
ENDIF 
RETURN 


* 

RO_CHK 

•fr 

* 

* 

* 

SUMMARY: 

* 

* 

The  RO_CHK  procedure  is  invoked  to  check 

the  validity  of  the  rela- 

'fr 

* 

tional  operators  entered  on  the  query  input  screen.  Invalid  en- 

* 

* 

■* 

tries  are  flagged  and  passed  back  to  the 

invoking  procedure. 

* 

INVOKING  PROCEDURES: 

* 

* 

Procedure  Name 

Location 

‘V 

* 

WPSS_QRY 

RCIS_P3.PRG 

* 

* 

SCHA_QRY 

RCIS_P3.PRG 

* 

* 

DCFY_QRY 

RCIS_P3.PRG 

* 

* 

CLAS_QRY 

RCIS_P3.PRG 

* 

HRAX_QRY 

RCIS_P3.PRG 

* 

■fv 

CGDT_QRY 

RCIS_P3.PRG 

•A- 

* 

SEDT_QRY 

RCIS_P3.PRG 

* 

WTAR_QRY 

RCIS_P3.PRG 

* 

* 

INDV_QRY 

RCIS_P3.PRG 

* 

PAYI_QRY 

RCIS_P3.PRG 

* 

* 

* 

*- 

PROCEDURE  RO_CHK 
* 


PARAMETER  ROCHK 


GOOD_RO 
DO  CASE 

=  .F. 

CASE 

ROCHK  =  '<>' 

GOOD.RO  = 

.T. 

CASE 

(ROCHK  = 

'=  ') 

.OR. 

(ROCHK  = 

’  =’) 

GOOD_RO  = 

.T. 

CASE 

(ROCHK  =  ' 

'>  ') 

.OR. 

(ROCHK  = 

’  >’) 

GOOD_RO  = 

.T. 

CASE 

(ROCHK  = 

'<  ') 

.OR. 

(ROCHK  = 

'  <’) 

GOOD_RO  = 

.T. 

CASE 

(ROCHK  =  ' 

'>=') 

.OR. 

(ROCHK  = 

’<=') 

GOOD_RO  = 

.T. 

ENDCASE 


* 

RETURN 


SET  DB 


*  SUMMARY:  ■> 

*  Thp  SET_DB  procedure  is  used  to  set  up  the  string  variables  used  ’’ 

*  to  identify  the  different  source  and  destination  database  files  • 

*  (both  data  and  index  files).  All  procedures  in  this  file  use 

*  these  strings  (GLOBAL)  as  opposed  to  building  their  own.  ^ 


*  VARIABLE  DECLARATIONS:  ^ 

*  -i 

*  Variable  Name  Status  Purpose  ^ 

*  -  -  - ■! 

*  S_PREFIX  LOCAL  Used  to  store  a  one  letter  identifier  for’’ 

*  the  source  files.  ^ 

*  -f 

*  - -f 


PROCEDURE  SET_DBQ 
* 

PRIVATE  S_PREFIX 

* 

M_FILE  =  'X_CDT_MS' 

P_FILE  =  'X_CDT_PY' 

CT_FILE  =  'X_CDT_CT' 

*  Designate  code  for  access  to  active  or  Inactive  files. 

IF  (G.SELECT  =  'H') 

S_PREFIX  =  'A' 

ELSE 

S_PREFIX  =  'I' 

END  IF 

M_FILE  =  STUFF(M_FILE, 1, 1,LTRIM(S_PREFIX)) 

P_FILE  =  STUFF(P_FILE, 1, 1,LTRIM(S_PREFIX)) 

CT_FILE  =  STUFF(CT_FTLE, 1, 1,LTRIM(S_PREFTX)) 

* 

M_NDX  =  'X_XXXX' 

P_NDX  =  'X_XXXX' 

CT  NDX  =  'X_ASCL' 


*  Build  index  string  variables  used  to  build  query  index  files. 


DO  CASE 

CASE 

QS_SELECT 

= 

'H' 

M_NDX 

= 

'X_WPSS' 

M_NDX_STR 

= 

'AS  CLASS+(WPSS/1000.0)' 

CASE 

QS_SELECT 

= 

'I' 

M_NDX 

= 

'X_SCHA' 

M_NDX_STR 

= 

'AS  CLASS+(CUM  GPA/10.0)' 

CASE 

QS_SELECT 

= 

'J' 

M_NDX 

= 

'X_DCFY' 

M_NDX_STR 

= 

' YEAR( C0M_DATE+92 )+( FY_RTNG/ 1 00 . 00 )+( DC_RTNG/ 1000 . 000) ' 
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CASE  (QS_SELECT  =  K' )  .OR.  (QS_SET,ECT  =  'l,')  .OR.  (QS_SELECT  =  'O') 
M_NDX  =  ' X_CLAS ' 

M_NDX_STR  =  'STR(AS_CLASS, 1)+CAT_TYPE+L_NAMR+F_NAME' 

CASE  QS_SELECT  =  'M' 

M_NDX  =  'X_CGDT' 

M_NDX_STR  =  'STR(AS_CLASS,1)+STR(YEAR(C0M_DATE),4)' ; 

+  ' +STR ( MONTH ( COM_DATE ) , 2 ) +STR ( D A Y ( COM_D ATE ) , 2 ) ' 

CASE  QS_SELECT  =  'N' 

M_NDX  =  'X_SEDT' 

M_NDX_STR  =  'STR(AS_CLASS,1)+STR(YEAR(SCHLR_DATE),4)' ; 

+  '+STR(MONTH(SCHLR_DATE),2)+STR(DAY(SCHLR_DATE),2)' ; 

+  ' +STR( SCHLR_TYPE ,3,1)' 

CASE  QS_SELECT  =  'P' 

M_NDX  =  'X_SSAN' 

M_NDX_STR  =  'SSAN' 

CASE  QS_SELECT  =  'Q' 

M_NDX  =  'X_SSAN' 

P_NDX  =  'X_PAYD' 

M_NDX_STR  =  'SSAN' 

P_NDX_STR  =  'SSAN+STR(YEAR(PAY_DATEl),4)+STR(MONTH(PAY_nATEl),2)' ; 

+  'STR(DAY(PAY_DATEt),2)' 

ENDCASE 

M_NDX  =  STUFF(M_NDX, 1, 1,LTRIM(S_PREFIX)) 

P_NDX  =  STUFF(P_NDX, 1, 1,LTRIM(S_PREFIX)) 

CT_NDX  =  STUFF(CT_NDX,1,1,LTRIM(S_PREFTX)) 

M_NDX_F  =  M_NDX  +  ' .NDX' 

P_NDX_F  =  P_NDX  +  '.NDX' 

CT_NDX_F  =  CT_NDX  +  '.NDX' 

* 

RETURN 


i 


( 


r 


DB3_Q_F,RR 


SUMMARY :  * 

The  DB3_Q_ERR  procedure  displays  system  error  messages  and  provides* 
limited  corrective  action  capabilities.  If  a  corrupted  index  con-  * 
dition  is  detected,  the  system  attempts  to  repair  it  by  creating  a  * 
replacement.  For  other  errors,  the  system  will  display  an  advisory* 
message  and  the  error  number  detected.  This  error  number  can  be  * 
used  to  locate  the  problem  area.  An  exact  decoding  of  error  num-  * 
bers  can  be  found  in  the  dBASE  III  PLUS  User's  Manual  Appendices.  * 


INVOKING  PROCEDURES: 


VARIABLE  DECLARATIONS: 


Variable  Name 


ERR_NUM 


ERR  MSG 


PRFX  SAV 


PROCEDURE  DB3_Q_ERR 
* 

PARAMETERS  ERR_NUM,  ERR_MSG 

* 

PRIVATE  PRFX_SAV 

k 

@  21,  0 

?  CHR(7) 

@  21,  0 

?  CIIR(7) 

(9  21,  0 


Procedure  Name 

QUERIES 

WPSS_QRY 

SCHA_QRY 

DCFY_QRY 

CLAS_QRY 

HRAX_QRY 

CGDT_QRY 

SEDT_QRY 

WTAR_QRY 

INDV_QRY 

PAYI_QRY 


Location 


RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS_P3.PRG 
RCIS  P3.PRG 


Status 


PARAMETER 


PARAMETER 


LOCAL 


Purpose 


Used  to  hold  the  system  error  number  * 

returned  by  the  built-in  function  ERROR().* 

'k 

Used  to  hold  the  system  error  number  re-  * 
turned  by  the  built-in  function  MESSAGE().* 

* 

Used  to  store  a  one  letter  identifier  for  * 
the  source  files.  * 


?  CHR(7) 


*  If  an  index  error  has  occured,  try  to  correct  the  error  by  relndexing  * 

*  all  query  index  files  using  appropriate  index  string  variables.  * 

IF  (ERR_NUM  =  68)  .OR.  (ERR.NUM  =  114) 

(9  21,  0 

(9  21,15  SAY  'INDEX  ERROR  DETECTED.  ATTEMPTING  TO  REBUILD  INDICES.' 

@  24,0 

IF  FILE(M_NDX_F) 

RE INDEX  ON  &M_NDX_STR  TO  &M_NDX 
ENDIF 

IF  (QS_SELECT  =  'H'  .OR.  QS_SELECT  =  'l'  .OR.  QS_SELECT  =  'j'  .OR.  ; 
QS_SELECT  =  'P') 


f 

f 


IF  FILE(CT_NDX_F) 

REINDEX  ON  AS_CLASS  TO  &CT_NDX 
ENDIF 
ENDIF 

IF  (QS_SELECT  =  'O' ) 

IF  FILE( 'T_HGHT.NDX' ) 

INDEX  ON  HEIGHT  TO  T_HGHT 
ENDIF 

IF  FILE( 'T_AGEC.NDX' ) 

INDEX  ON  AGE_CAT  TO  T_AGEC 
ENDIF 
ENDIF 


n 


IF  (QS_SELECT  =  'Q') 

IF  FILE(P_NDX_F) 

RE INDEX  ON  &P_NDX_STR  TO  &P_NDX 
ENDIF 
ENDIF 
@  21,  0 
?  CHR(7) 

@  21,15  SAY  'INDICES  REBUILT.  ATTEMPTING  TO  CONTINUE  PROCESSING.' 
@  21,  0 
RETRY 
ELSE 

IF  (ERR_NUM  =  126) 

@  23,  0 

@  23,10  SAY  'PRINTER  ERROR.  CHECK  PRINTER  AND  PRESS  ANY  KEY  TO' 
+  '  CONTINUE. ' 

CLEAR  TYPEAHEAD 
WAIT  '  ' 

@  23,  0 
ELSE 

@  22,  0 

@  23,  0 

@  22,  0  SAY  ERR_MSG 
@  23,  0  SAY  'REPORT  ERROR  CODE  (' 

@  23,19  SAY  ERR_NUM  PICTURE  '@B 
@  23,22  SAY  '].  PRESS  ANY  KEY  TO  CONTINUE.' 

CLEAR  TYPEAHEAD 


BEGINNING  OF  RCISUTIL.PRG 


SUMMARY:  * 

The  RCISUTIL  procedure  is  the  main  driver  for  the  RCIS  utilities  * 
function.  This  module  initializes  program  variables,  activates  a  * 
pop-up  menu  to  determine  user  processing  requirements,  and  invokes  * 
procedures  to  reload  &  backup  database  files  and  to  change  author-  * 
Ization  password.  * 


CALLED  PROCEDURES: 


Procedure  Name 

INIT 

MENU 

UBACKUP 

URELOAD 

PASSWORD 


Location 


RCISUTL2.PRG 

MENU.BIN 

RCISUTL2.PRG 

RCISUTL2.PRG 

RCISUTL2.PRG 


VARIABLE  DECLARATIONS: 


Variable  Name 


U  PARA 


Status 


GLOBAL 


Purpose 


Parameter  for  MENU.BIN  that  passes  pop-up  * 
function  menu  descriptions  and  returns  with* 
user  selection.  A  more  detailed  discussion* 
of  this  parameter  is  provided  in  RCIS_P1.PRG 


PUBLIC  U_PARA 

SET  STATUS  OFF 
SET  SCOREBOARD  OFF 


(a  1,  0  TO  3,79 

(3  2,32  SAY  'RCIS  UTILITIES' 

@  5,  0  TO  17,79 

@  7,33  SAY  'Version  1. 10' 

@  9,30  SAY  'Copyright  (C)  1987' 

(9  ’1,38  SAY  'by' 

(3  13,31  SAY  'Carter  L.  Frank' 

@  15,30  SAY  'All  rights  reserved' 

(9  23,  0 

*  Designate  RCISUTL2.PRG  as  the  active  procedure  file 


SET  PROCEDURE  TO  RCISUTL2 

*  Call  procedure  U_INJT  from  RCISUTL2.PRG  * 

DO  U_INIT 
(a  5,0  CLEAR 


LOOP_CNTRL  =  .T. 

*  Continue  loop  until  user  selects  the  "Done"  option.  * 

DO  WHILE  (LOOP_CNTRL) 

U_PARA  =  STU7F(U_PARA, 1,1, 'A' ) 

*  Call  menu  assembly  routine,  passing  the  utility  menu  parameter.  * 

CALL  MENU  WITH  U_PARA 
F_SELECT  =  SUBSTR(U_PARA,6,1) 

DO  CASE 

CASE  F_SELECT  =  'H' 

DO  UBACKUP 
CASE  F_SELECT  =  'l' 

DO  URELOAD 
CASE  F_SELECT  =  'j' 

DO  PASSWORD 
CASE  F_SELECT  =  'K' 

EXIT 

ENDCASE 

ENDDO 

*  Restore  initial  dBASE  III  PLUS  environment.  * 

SET  CONFIRM  OFF 
SET  SCOREBOARD  ON 
SET  TALK  ON 
SET  ESCAPE  ON 
SET  SAFETY  ON 
SET  BELL  ON 
SET  STATUS  ON 
CLEAR  ALL 

* 

RETURN 


BEGINNING  OF  RCISUTI,2.PRG 


U  INIT 


SUMMARY: 

U_INIT  is  the  main  initialization  procedure  for  the  RCIS  utilities 
function.  This  module  initializes  the  database  and  index  file 
string  variables  and  builds  the  character  string  which  is  used  by 
menu  to  build  the  pop-up  menu. 


VARIABLE  DECLARATIONS: 


* 

Variable  Name 

Status 

Purpose 

it 

* 

NDX_STRG 

GLOBAL 

String  variable  which  contains  all 

possible* 

database  index  file  names. 

* 

* 

:V 

* 

FIL_STRG 

GLOBAL 

String  variable  which  contains  all 

possible* 

* 

database  data  file  names. 

* 

it 

it 

LOCAL 

All  local  variables  are  explicitly  defined  * 

* 

in  the  RCIS_P1.PRG  program. 

it 

* 

it 

- * 

PROCEDURE  U_INIT 
* 

PUBLIC  NDX_STRG 
PUBLIC  FIL.STRG 

* 

SET  DELETED  OFF 
SET  CONFIRM  ON 
SET  CENTURY  ON 
SET  BELL  OFF 
SET  TALK  OFF 
SET  ESCAPE  OFF 
SET  SAFETY  OFF 
LOAD  MENU.BIN 

* 

NDX_STR 1  =  "X_ASCL . NDX , X_CGDT . NDX , X_CLAS . NDX , X_DCFY . NDX , X_PAYD . NDX , X_SCHA . NDX" 
NDX_STR2  =  " , X_SEDT . NDX , X_SS AN . NDX , X_WPSS . NDX , X_AGEC . NDX , X_HG}rr . NDX" 

NDX_STRG  =  NDX_STR1  +  NDX_STR2 

* 

F I L_STR 1  =  "X_CDT_CT . DBF , X_CDT_MS . DBF , X_CDT_P Y . DBF , X_CDT_HW . DBF , X_CDT_RT .DBF," 
FIL_STR2  =  "X_CDT_WP.DBF" 

FIL_STRG  =  FIL_STR1  +  FIL_STR2 

* 

TL_BOX  =  CHR(201) 

X_BAR  =  CHR(205)  +  CHR(205)  +  CHR(205)  +  cnR(205)  +  CHR(205) 

X_BAR  =  X_BAR  +  X_BAR 
TR_BOX  =  CHR(187) 


msmm 


LM_BOX 
RM_BOX 
V_BAR 
BL_BOX 
BR  BOX 


CHR(204) 

CHR(185) 

CHR(186) 

CHR(200) 

CHR(188) 


SEQ_1 

ACT_1 

SROW_l 

SCOL_l 

BROW_l 

AROW_l 

SLEN  1 


CHR(65  +  0) 
CHR(64  +  1) 
CHR(65  +  4) 
cnR(65  +  34) 
CHR(65  +  11) 
CHR(65  +  7) 


_1  =  CHR(65  +  12) 


U_PARA 
U_PARA 
U_PARA 
U_PARA 
U_PARA 
U_PARA 
U_PARA 
U_PARA 
U  PARA 


SEQ_1  +  ACT_1  +  SROW_l  +  SCOL_l  +  BROW_l  +  AROW_l  +  SLEN_1 
U_PARA  +  TL_BOX  +  X_BAR  +  TR_BOX 
U_PARA  1-  V  BAR  +  '  FUNCTION  '  +  V  BAR 


=  U_PARA  1-  V_BAR  +  '  FUNCTION  '  + 
=  U_PARA  +  LM_BOX  +  X_BAR  +  RM_BOX 


U_PARA  +  V_BAR 
U_PARA  +  V_BAR 
U_PARA  +  V_BAR 
U  PARA  +  V  BAR 


BackUp 

ReLoad 

Password 

Done 


+  V_BAR 
+  V_BAR 
+  V_BAR 
+  V  BAR 


=  U  PARA  +  BL  BOX  +  X  BAR  +  BR  BOX 


RETURN 


CHK  NDX 


( 


i 

o 


SUMMARY : 

The  CHK^NDX  procedure  Is  used  by  the  Reload  function  to  erase  any 
existing  database  index  files  that  are  on  the  main  disk  drive  (hard 
disk  drive  labeled  C). 


VARIABLE  DECLARATIONS: 


Variable  Name 


STRT  POS 


PRFX  LTR 


MAX  POS 


Status 


LOCAL 


LOCAL 


LOCAL 


Purpose 


Used  as  a  pointer  to  locate  the  beginning 
of  each  file  name. 

Used  to  store  a  one  letter  identifier  for 
the  active  and  inactive  database  files. 

Used  to  Indicate  different  transition 
points  within  the  string  variables. 


PROCEDURE  CHK_NDX 
* 

* 

STRT.POS  =  1 
PRFX_LTR  =  'A' 

MAX_POS  =99 

DO  WHILE  (PRFX.LTR  <>  'X') 

DO  WHILE  (STRT_POS  <  MAX.POS) 

NDX_NAM_F  =  RTRIM(SUBSTR(NDX_STRG,STRT_POS.10)) 
NDX_NAM_F  =  STUFF(NDX_NAM_F,1,1,PRFX_LTR) 

IF  FILE(NDX_NAM_F) 

ERASE  &NDX_NAM_F 
ENDIF 

STRT_POS  =  STRT_POS  +11 
ENDDO 

IF  (PRFX_LTR  =  'A') 

STRT_POS  =  1 
PRFX_LTR  =  'I' 

ELSE 

IF  (PRFX_LTR  =  'I') 

MAX_POS  =  121 
PRFX_LTR  =  'T' 

ELSE 

PRFX_LTR  =  'X' 

ENDIF 

ENDIF 

ENDDO 

* 

RETURN 


CHK  DSK 


*  SUMMARY: 


The  CHK_DSK  procedure  is  used  by  the  Backup  function  to  erase  any 
existing  database  data  files  that  are  on  the  backup  floppy  disk 
(disk  drive  labeled  A). 


* 

VARIABLE  DECLARATIONS: 

* 

* 

:V 

■»v 

Variable  Name 

Status 

Purpose 

* 

'k 

STRT_POS 

LOCAL 

Used  as  a  pointer  to  locate  the  beginning 

* 

of  each  file  name. 

* 

* 

* 

* 

PRFX_LTR 

LOCAL 

Used  to  store  a  one  letter  identifier  for 

* 

* 

the  active  and  inactive  database  files. 

* 

* 

* 

* 

MAX_POS 

LOCAL 

Used  to  indicate  different  transition 

* 

* 

points  within  the  string  variables. 

* 

* 

* 

PROCEDURE  CHK_DSK 
* 

STRT_POS  =  1 
PRFX_LTR  =  'A' 

MAX_POS  =  36 

DO  WHILE  (PRFX.LTR  <>  'X') 

DO  WHILE  (STRT_POS  <  MAX.POS) 

FIL_NAM_F  =  SUBSTR(FIL_STRG,STRT_POS, 12) 
FIL_NAM_F  =  'A:'  +  STUFF(FIL_NAM_F,  1 ,  1 ,  PRFX_T,TR) 
IF  FILE(FIL_NAM_F) 

ERASE  &FIL_NAM_F 
ENDIF 

STRT_POS  =  STRT_POS  +13 
ENDDO 

IF  (PRFX_LTR  =  'A') 

STRT_POS  =  1 
PRFX_LTR  =  '  I ' 

ELSE 

IF  (PRFX_LTR  =  'I') 

MAX_POS  =72 
PRFX_LTR  =  'T' 

ELSE 

PRFX_LTR  =  'X' 

ENDIF 

ENDIF 

ENDDO 

* 

RETURN 


1 


I  i 


SET  DSK 


*  SUMMARY: 

*  The  SET_DSK  procedure  is  used  by  the  Reload  function  to  erase  any 

*  data  that  exists  on  the  database  data  files  that  are  on  the  main 

*  disk  drive  (hard  disk  drive  labeled  C). 

* 

*  VARIABLE  DECLARATIONS: 

* 


Variable  Name 

Status 

Purpose 

STRT_POS 

LOCAL 

Used  as 
of  each 

a  pointer  to  locate  the  beginning 
file  name. 

PRFX_LTR 

LOCAL 

Used  to  store  a  one  letter  Identifier  for 
the  active  and  inactive  database  files. 

MAX_POS 

LOCAL 

Used  to  indicate  different  transition 
points  within  the  string  variables. 

PROCEDURE 

SET_DSK 

- 

* 

SELECT  2 

STRT_POS 

=  1 

PRFX_LTR 

=  'A' 

MAX.POS 

=  36 

DO  WHILE 

(PRFX_LTR  <>  'X') 

DO  WHILE  (STRT.POS  <  MAX.POS) 

FIL_NAM_F  =  SUBSTR(FIL_STRG,STRT_P0S,8) 
FIL_NAM_F  =  STUFF(FIL_NAM_F, 1, 1,PRFX_LTR) 
USE  &FIL_NAM_F 
ZAP 

STRT_POS  =  STRT_POS  +13 
ENDDO 

IF  (PRFX.LTR  =  'A') 

STRT_POS  =  1 
PRFX_LTR  =  '!' 

ELSE 

IF  (PRFX_LTR  =  '!') 

MAX_POS  =72 
PRFX_LTR  =  'T' 

ELSE 

PRFX_LTR  =  'X' 

ENDIF 
END  IF 
ENDDO 

* 

USE 

* 

RETURN 


>-»  ^  4*-  «^«  <»a  ■.a-fc  aH* 


LOAD_DBF 

SUMMARY: 

The  L0AD_: 
base  data 
main  disk 

DBF  procedure  is  used  by  the  Reload  function  to  copy  data¬ 
files  from  the  floppy  disk  (disk  drive  labeled  A)  to  the 
drive  (hard  disk  drive  labeled  C). 

VARIABLE  DECLARATIONS: 

Variable  Name 

Status 

Purpose 

STRT_P0S 

LOCAL 

Used  as  a  pointer  to  locate  the  beginning 
of  each  file  name. 

PRFX_LTR 

LOCAL 

Used  to  store  a  one  letter  identifier  for 
the  active  and  inactive  database  files. 

MAX_POS 

LOCAL 

Used  to  indicate  different  transition 
points  within  the  string  variable  ;. 

PROCEDURE  LOAD_DBF 
* 

@  20,  0 

@  20,14  SAY  'insert  backup  diskette  in  drive  A  and  press  any  key.' 
CLEAR  TYPEAHEAD 
WAIT  '  ' 

@  20,  0 

@  20,21  SAY  'Loading  backup  files.  Please  wait...' 

STRT.POS  =  1 
PRFX_LTR  =  'A' 

MAX_P0S  =  36 

DO  WHILE  (PRFX_LTR  <>  'X') 

DO  WHILE  (STRT_P0S  <  MAX_P0S) 

FIL_NAM_F  =  SUBSTR(FIL_STRG,STRT_POS, 12) 

FIL_NAM_F  =  'A;'  +  STUFF(FIL_NAM_F, 1 , I , PRFX_LTR) 

FIL_USE  =  SUBSTR(FIL_NAM_F,3,8) 

FIL_APND  =  5UBSTR(FIL_NAM_F, 1, 10) 

IF  FILE(FIL_NAM_F) 

USE  &FIL_USE 
APPEND  FROM  &FIL_APND 
END  IF 

STRT_POS  =  STRT_POS  +  13 
ENDDO 

IF  (PRFX_LTR  =  'A') 

STRT_POS  =  1 
PRFX_LTR  =  '!' 

ELSE 

IF  (PRFX_LTR  =  '!') 

MAX_POS  =72 
PRFX  LTR  =  'T' 


V/ 


S  .NjN  to"** W 
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SUMMARY :  * 

The  COPY_DBF  procedure  processes  the  database  data  files  and  puts  * 
them  on  the  backup  floppy  disk  (disk  drive  labeled  A).  First,  the  * 
files  are  put  into  temporary  files  on  the  main  disk  (C)  in  a  * 

specified  sorted  order.  Next,  they  are  copied  to  temporary  files  * 
on  the  floppy  disk  (A).  As  the  system  copies  to  the  floppy  disk  * 

it  continually  checks  the  disk  for  the  amount  of  available  space.  * 
If  it  runs  out  of  space  before  the  backup  is  finished,  it  prompts  * 
the  user  to  place  another  floppy  disk  in  the  disk  drive.  Once  the  * 
backup  copying  is  complete  the  temporary  files  on  the  floppy  disk  * 
(A)  are  renamed  with  valid  database  file  names  and  the  temporary  * 
sorted  files  on  the  main  disk  (C)  are  erased.  * 


*  CALLED  PROCEDURES: 

* 


VARIABLE  DECLARATIONS: 


Procedure  Name 


CHK  DSK 


Location 


RCISUTL2.PRG 


* 

* 

•>v 

Variable  Name 

Status 

Purpose 

* 

* 

jf 

* 

DBF_NAME 

PARAMETER 

String  variable  containing  the  complete 

* 

* 

database  file  name  to  be  processed. 

* 

* 

* 

* 

TMP_SUB 

PARAMETER 

String  variable  containing  a  portion  of  the* 

* 

database  file  name,  used  to  identify  sort 

■ft 

* 

fields . 

•ft 

■ft 

■ft 

* 

PHASE 

PARAMETER 

Used  to  store  a  one  letter  identifier  for 

■ft 

* 

•c. 

the  active  or  the  Inactive  database  files. 

* 

SRT_NAME 

LOCAL 

String  variable  containing  the  name,  and 

* 

access  path  for  the  temporary  sorted  file 

* 

* 

on  the  main  drive  (C). 

* 

* 

■ft 

jf 

TMP_NAME 

LOCAL 

String  variable  containing  the  name  and 

■ft 

* 

access  path  for  the  temporary  file  on  the 

* 

* 

floppy  disk  drive  (A). 

* 

* 

* 

TARGET 

LOCAL 

String  variable  containing  the  name  and 

* 

access  path  for  the  valid  database  file  on 

■ft 

Vr 

the  floppy  disk  drive  (A). 

* 

•fc 

Vf 

TMP_CNT 

LOCAL 

Used  to  store  the  number  of  records  con- 

■fr 

* 

tained  in  the  database  file  being  processed* 

* 

■ft 

* 

REC_POS 

LOCAL 

Used  to  store  the  number  of  the  current 

■ft 

Vf 

database  record  being  processed.  Is  com- 

•jV 

compared  against  TMr_CNT  to  ensure  all 

* 

* 

records  have  been  processed. 

* 

m 


PROCEDURE  COPY  DBF 


* 

PARAMETERS 

* 

DBF_; 

NAME 

:,  TMP_SUBj  PHASE 

SRT_NAME  = 

'C:S 

'  + 

TMP_SUB  +  '.DBF* 

TARGET 

'A:  ' 

+ 

PHASE  +  TMP_SUB  +  ' 

'  .DBF 

TMP_NAME  = 

'A:X 

'  + 

TMP_SUB  +  '.DBF' 

SELECT  1 

USE  &DBF_NAME 

REC_CNT  =  RECCOUNTO 

COPY  STRUCTURE  TO  &TMP_NAME 

IF  REC  CNT  >  0 


*  If  only  one  record,  don't  sort  the  file.  * 


IF  REC_CNT  =  1 

COPY  TO  &SRT  NAME 


*  If  more  than  one  record,  sort  the  entire  file.  * 


ELSE 

DO  CASE 

CASE  TMP_SUB  =  '_CDT_MS' 

SORT  TO  &SRT_NAME  ON  SSAN 
CASE  TMP_SUB  =  '_CDT_PY’ 

SORT  TO  &SRT_NAME  ON  SSAN,  PAY_DATR1 
CASE  TMP_SUB  =  '_CDT_CT' 

SORT  TO  &SRT_NAME  ON  AS.CLASS 
CASE  TMP.SUB  =  '_CDT_HW’ 

SORT  TO  &SRT_NAME  ON  HEIGHT 
CASE  TMP_SUB  =  '_CDT_RT' 

SORT  TO  &SRT_NAME  ON  AGE_CAT 

ENDCASE 
END  IF 
END  IF 
USE 

SELECT  2 

USE  &TMP_NAME 

SET  DEFAULT  TO  A: 

TMP  CNT  =  0 


*  Continue  looping  until  all  records  have  been  processed.  * 
DO  WHILE  (TMP_CNT  <  REC_CNT)  .AND.  (REC_CNT  <>  0) 

*  Copy  from  the  sorted  file  until  disk  space  runs  low.  * 


APPEND  FROM  &SRT_NAME  FOR  (DISKSPACEO  >  10000) 
REC_P0S  =  RECCOUNTO 
TMP_CNT  =  TMP_CNT  +  REC_P0S 
IF  REC  POS  >  0 


GO  REC_POS 

*  Save  the  value  of  the  sort  field  to  be  used  as  a  starting  * 

*  point  if  the  rest  of  the  file  needs  to  be  put  on  another  disk  * 

DO  CASE 

CASE  TMP_SUB  =  ’_CDT_MS' 

SSAN_VAL  =  SSAN 
CASE  TMP_SUB  =  '_CDT_PY' 

SRTVl  =  'SSAN+STR(YEAR(PAY_DATE1),4)+STR(M0NTH(PAY_DATE1),2)' 
SRTV2  =  '+STR(DAY(PAY_DATE1),2)' 

SRT_VAL  =  SRTVl  +  SRTV2 
PAY_VAL  =  &SRT_VAL 
CASE  TMP_SUB  =  '_CDT_CT' 

ASCL_VAL  =  AS_CLASS 
CASE  TMP_SUB  =  '_CDT_HW' 

HGHT_VAL  =  HEIGHT 
CASE  TMP_SUB  =  '_CDT_RT' 

AGEC_VAL  =  AGE_CAT 

ENDCASE 

END  IF 

*  If  the  entire  file  did  not  fit  on  the  same  disk,  prompt  the  * 

*  user  for  another  disk  and  delete  that  portion  of  the  sort  file  * 

*  already  copied.  * 

IF  TMP_CNT  <  REC_CNT 
SELECT  2 
USE 

RENAME  &TMP_NAME  TO  &TARGET 
@  20,  0 
?  CHR(7) 

(§  20,14  SAY  'Insert  a  formatted  disk  in  drive  A  and  press  any  key.' 
CLEAR  TYPEAHEAD 
WAIT  '  ' 

@  20,  0 

SET  DEFAULT  TO  C: 

(9  20,21  SAY  'Checking  target  disk.  Please  wait...' 

DO  CHK_DSK 

@  20,  0 

(3  20,20  SAY  'Continuing  with  backup.  Please  wait...' 

SELECT  1 
USE  6tSRT_NAME 

COPY  STRUCTURE  TO  &TMP_NAME 
DO  CASE 

CASE  TMP_SUB  =  '_CDT_MS' 

DELETE  FOR  SSAN  <=  SSAN_VAL 
CASE  TMP_SUB  =  '_CDT_PY' 

DELETE  FOR  &SRT_VAL  "=  PAY_VAL 
CASE  TMP_SUB  =  '_CDT_CT' 

DELETE  FOR  AS_CLASS  <=  ASCI._VAL 
CASE  TMP_SUB  =  '_CDT_HW' 

DELETE  FOR  HEIGHT  <=  HGHT_VAL 
CASE  TMP_SUB  =  '_CDT_RT’ 

DELETE  FOR  AGE  CAT  <=  AGEC  VAL 


ENDCASE 

PACK 

USE 

SELECT  2 

USE  &TMP_NAME 

SET  DEFAULT  TO  A; 

END  IF 
ENDDO 

SET  DEFAULT  TO  C: 

USE 

RENAME  &TMP_NAME  TO  &TARGET 
IF  FILE(SRT_NAME) 

ERASE  &SRT_NAME 
END  IF 

* 

RETURN 


m 


UBACKUP 


iV 

* 

* 

* 

* 

* 

* 

iV 


SUMMARY: 

The  UBACKUP  procedure  is  the  main  driver  for  the  Backup  function. 
It  sets  up  the  string  variables  needed  to  process  the  backup  and 
invokes  the  appropriate  procedures  to  process  them. 


CALLED  PROCEDURES: 


Procedure  Name 

CHK_DSK 
COPY  DBF 


Location 


RCISUTL2.PRG 

RCISUTL2.PRG 


VARIABLE  DECLARATIONS: 


* 

* 

* 

* 

* 

* 

* 

'fr 

* 

•ff 

* 

* 


Vr 

Variable  Name 

Status 

Purpose 

•k 

* 

STRT_P0S 

LOCAL 

Used  as  a  pointer  to  locate  the  beginning 

k 

* 

of  each  file  name. 

* 

■k 

PRFX_LTR 

LOCAL 

Used  to  store  a  one  letter  identifier  for 

k 

* 

the  active  and  inactive  database  files. 

k 

* 

k 

* 

MAX_P0S 

LOCAL 

Used  to  indicate  different  transition 

k 

points  within  the  string  variables. 

* 

* 

* 

-k 

PROCEDURE  UBACKUP 
* 

(3  20,  0 

@  20,14  SAY  'insert  a  formatted  disk  in  drive  A  and  press  any  key.' 
CLEAR  TYPEAHEAD 
WAIT  '  ' 

(3  20,  0 

@  20,21  SAY  'Checking  target  disk.  Please  wait...' 

DO  CHK_DSK 

(3  20,  0 

@  20,21  SAY  'starting  RCIS  backup.  Please  wait...' 

STRT_P0S  =  1 
PRFX_LTR  =  'A' 

MAX_P0S  =36 

DO  WHILE  (PRFX_LTR  <>  'X') 

DO  WHILE  (STRT_POS  <  MAX.POS) 

DBF_F_NAM  =  SUBSTR(FIL_STRG, STRT_POS , 8) 

DBF_F_NAM  =  'C;'  +  STUFF(DBF_F_NAM, 1 , 1 . PRFX_LTR) 

TMP_NAM  =  SUBSTR(DBF_F_NAM,4,7) 

DO  C0PY_DBF  WITH  DBF_F_NAM,  TMP_NAM,  PRFX_LTR 
STRT_P0S  =  STRT_P0S  +  13 
ENDDO 

IF  (PRFX_LTR  =  'A') 

STRT  POS  =  1 


225 


PRFX_LTR  =  ' I ' 

ELSE 

IF  (PRFX_LTR  =  'I') 

MAX_POS  =72 
PRFX_LTR  =  'T' 

ELSE 

PRFX_LTR  =  'X' 

ENDIF 
ENDIF 
ENDDO 
SELECT  1 
USE 

SELECT  2 
USE 

@  20,  0 

@  20,18  SAY  'Backup  complete.  Press  any  key  to  continue.' 
CLEAR  TYPEAHEAD 
WAIT  '  ' 

(a  20,  0 

RETURN 
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URELOAD 


I.',’. 

M*,’ 

>1 


V, 

v. 


* - * 

*  URELOAD  * 

*  - * 

■>v  * 

*  SUMMARY:  * 

*  The  URELOAD  procedure  is  the  mflin  driver  for  the  Reload  function.  * 

It  requires  the  user  to  input  a  password  which  is  checked  against  * 

the  system  password  for  validity.  It  invokes  procedures  which  pre-* 

pare  the  system  files  for  reload  and  prompts  the  user  for  the  num-  * 

* 
* 
* 
* 
* 
* 
* 
* 
* 

VARIABLE  DECLARATIONS;  * 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


her  of  reload  disks  to  process. 
CALLED  PROCEDURES: 


Procedure  Name 

CHK_NDX 
SET_DSK 
LOAD  DBF 


Location 


RCISUTL2.PRG 

RCISUTL2.PRG 

RCISUTL2.PRG 


* 

* 

Variable  Name 

Status 

Purpose 

* 

* 

* 

* 

PWORD 

LOCAL 

Used  to  store  the  user  input  password  which* 

"h 

is  checked  against  the  system  password 

'k 

k 

DSK_N0 

LOCAL 

Used  to  store  the  user  input  for  number 

of  * 

* 

disks  to  process  for  the  reload. 

* 

* 

* 

* 

CUR_DSK 

LOCAL 

Used  to  keep  track  of  the  current  disk 

* 

* 

being  processed. 

* 

*■ 

* 

■k.. 

PROCEDURE  URELOAD 
* 

OPTION  =  .F. 

@  20,  0 

?  CHR(7) 

0  or,  'yARNING:  This  option  will  erase  existing  files.' 

)+ 

5  .  26  SAY  'Do  you  want  to  continue?  '  GET  OPTION  PICTURE  'Y' 

CLEAR  TY  ■AHEAD 
READ 
@  20,  0 
(a  22,  0 

IF  OPTION 
SELECT  1 
USE  RCIS_PW 
PWORD  =  '  ' 

0  20,28  SAY  'Enter  password  '  GET  PWORD  PICTURE  '!!!!!!!!' 
CLEAR  TYPEAHEAD 
READ 
0  20,  0 

IF  ACCESS  PW  <>  PWORD 
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?  CHR(7) 

@  20,19  SAY  'Access  denied.  Press  any  key  to  continue.' 
CLEAR  TYPEAHEAD 
WAIT  '  ' 

@  20,  0 

ELSE 

(§  20,22  SAY  'Erasing  existing  RCIS  indices.  Please  wait... 
DO  CHK_NDX 
@  20,  0 

@  20,23  SAY  'Erasing  existing  RCIS  files.  Please  wait... 
DO  SET_DSK 
@  20,  0 
DSK_N0  =  0 

@  20,22  SAY  'How  many  disks  will  be  processed?  '; 

GET  DSK_N0  PICTURE  ’@Z  m' 

CLEAR  TYPEAHEAD 
READ 
@  20,  0 
IF  DSK_N0  >  0 
CUR_DSK  =  1 

DO  WHILE  CUR_DSK  <=  DSK_N0 
DO  L0AD_DBF 
CUR_DSK  =  CUR_DSK  +  1 
ENDDO 
(3  20,  0 

@  20,17  SAY  'Reload  complete.  Press  any  key  to  continue 
CLEAR  TYPEAHEAD 
WAIT  '  ' 

END  IF 
ENDIF 
@  20,  0 
SELECT  1 
USE 
ENDIF 


RETURN 


PASSWORD 


*  VARIABLE  DECLARATIONS: 

* 

*  Variable  Name  Status 

* 

OLDWORD 

LOCAL 

* 

|vV 

■5'r 

NEWWORD 

LOCAL 

* 

■>v 

* 

VERWORD 

LOCAL 

*  SUMMARY: 

*  The  PASSWORD  procedure  allows  the  user  to  change  the  system  pass- 

*  word.  The  user  is  required  to  know  and  input  the  current  valid 

*  password  before  the  system  will  accept  their  new  password. 


Purpose  * 


Used  to  store  the  user  input  password  which* 
is  checked  against  the  system  password  * 

* 

Used  to  store  the  user  input  for  the  new  * 
password  they  would  like  to  use.  * 

* 

Used  to  store  the  user  input  which  is  com-  * 
pared  against  NEWWORD  for  system  verifica-  * 
tlon.  * 

* 


PROCEDURE  PASSWORD 
* 

OLDWORD  =  ' 

(§  16,26  SAY  'Enter  old  password  '  GET  OLDWORD  PICTURE  '!!!!!!!» 

CLEAR  TYPEAHEAD 

READ 

NEWWORD  =  '  ' 

@  18,26  SAY  'Enter  new  password  '  GET  NEWWORD  PICTURE  '!!!!!!!! 

CLEAR  TYPEAHEAD 

READ 

VERWORD  =  ' 

(3  20,26  SAY  'Verify  new  password  ’  GET  VERWORD  PICTURE  '!!!!!!!! 

CLEAR  TYPEAHEAD 

READ 

IF  VERWORD  =  NEWWORD 
USE  RCIS_PW 
IF  OLDWORD  =  ACCESS_PW 

REPLACE  ACCESS_PW  WITH  NEWWORD 

@  22,17  SAY  'Password  changed.  Press  any  key  to  continue.' 
CLEAR  TYPEAHEAD 
WAIT  '  ' 

ELSE 

?  CHR(7) 

@  22,19  SAY  'Access  denied.  Press  any  key  to  continue.' 
CLEAR  TYPEAHEAD 
WAIT  '  ' 

END  IF 
ELSE 

?  CHR(7) 


MENU. ASM 


SUMMARY: 

The  MENU. ASM  routine  was  written  in  assembler  code  by  Stephen  M. 
Curran.  It  accepts  the  menu  parameters  from  the  calling  RCIS  pro¬ 
cedures  and  builds  pop-up  menus  based  on  those  parameters.  It  also 
provides  the  environment  for  the  user  to  use  the  arrow  keys  to  move 
a  highlighted  bar  to  the  different  menu  options  for  them  to  make 
their  selection.  Once  a  selection  has  been  made  or  an  escape  se¬ 
quence  has  been  executed,  this  routine  passes  a  code  back  to  the 
calling  procedure  which  indicates  how  the  user  responded  in  the 
current  menu. 


TITLE  MENU. ASM 

ORG  OOH 

CSEG  SEGMENT  BYTE  PUBLIC  'PROG' 

ASSUME  CS : CSEG 

;  parameters  passed  by  dBASE  III  PLUS: 

) 

;  DS:[BX]  =  menu  sequence 
;  DS:[BX+1]  =  active  menu 
;  DS:[bX+2]  =  start  row 
;  DS:(bX+3]  =  start  column 
;  DS:[BX+4]  =  bottom  row 
;  DS:[BX+5]  =  active  row 
;  DS:[BX+6]  =  string  length 
;  DS:[EX+7]  =  start  of  data  strings 

9 

.  ****yf:Wf****Vr***')V******************'fr*** 

;*  MAIN  ROUTINE  * 

•  yfyryfVfVc*'jV'>V'5V’jV')VVr*yr*Vcyr’5VVcyrVcyryfypyryryrypyr*yryfyrTvyryryryr 

9 

START  PROC  FAR 

9 

;  save  working  registers  to  stack 

PUSH  AX 

PUSH  BX 

PUSH  CX 

PUSH  DX 

PUSH  DS 

PUSH  SS 

PUSH  SI 

MOV  AL,DS:[BX) 

CMP  AL,43H 

JNE  NEW_SCRN 


k.'*. 


MOV 

DS; [BX] ,AL 

CALL 

CUR_INIT 

CALL 

VIDEO 

XOR 

AX,  AX 

MOV 

AL,DS:  [BX-*-?.] 

ADD 

AL,03H 

MOV 

DS:[BX-*-5],AL 

JMP 

ROW_MATRIX 

NEW  SCRN: 

CALL 

INIT 

load  SI  with  string  index 
XOR  SI,  SI 

print  menu  label'; 

*  LABEL:  DO_BOX  * 

***********************1^***************** 


DO_BOX:  PUSH 

CX 

XOR 

CH,CH 

MOV 

CL,DS:  [BX-*-6) 

SUB 

CL,41H 

DO_STR:  PUSH 

CX 

PUSH 

BX 

;  get  current  video 

mode  and  page 

;  on  return:  BH 

=  video  page 

XOR 

AL,AL 

MOV 

AH,0FH 

INT 

lOH 

;  set  cursor  position 

1 

XOR 

AL.AL 

MOV 

AH,02H 

INT 

lOH 

MOV 

CX,BX 

POP 

BX 

PUSH 

BX 

MOV 

AL,DS:  [BX-*-7-*-SI 

MOV 

AH,09H 

MOV 

BH,CH 

MOV 

CX,01H 

MOV 

BL,07H 

INT 

lOH 

Increment  cursor  column 


I 

( 


increment  string  index 


SI.OIH 


;  decrement  loop  counter 


POP 

POP 

LOOP 

ADD 

MOV 

SUB 

POP 

LOOP 

ROW_MATRIX:  CALL 
CALL 


BX 

CX 

DO_STR 
DH.OIH 
DL,DS: [BX+3] 
DL,41H 
CX 

DO_BOX 

CUR_INIT 

VIDEO 


test  if  new  sequence 


DB_SPEC: 


MOV 

SUB 

CMP 

JNE 

JMP 

KEY_DB :  MOV 

INT 
CMP 
JE 
JMP 

DB_SPEC:  CMP 

JNE 
CALL 
CALL 
MOV 
SUB 
CMP 
JNE 
MOV 

RF.V_VIDEO;  ADD 
MOV 
SUB 
XOR 
MOV 
SUB 
CALL 
ADD 
MOV 
JMP 

CUR_UP :  CMP 

JNE 
CALL 
CALL 
SUB 
CMP 
JNE 


AL,DS: [BX] 

AL,41H 

AL.OIH 

KEY_DB 

EXIT 

AH.OOH 

16H 

AL,00H 

DB_SPEC 

DB.NOSP 

AH,50H 

CUR_UP 

CUR_INIT 

VIDEO 

AL.DS: [BX+41 

AL,42H 

AL,DH 

REV_VIDEO 

DH,06H 

DH.OIH 

DL,DS:[BX+3] 

DL,40H 

CH,CH 

CL,DS: [BX+6J 
CL,43H 
VIDEO 
DH,41H 

DS:(BX+5),DH 

KEY_DB 

AH,48H 

KEY_DB 

CUR_INIT 

VIDEO 

DH.OIH 

DH,06H 

SET  VID 


MOV 

DH,DS: [BX+4] 

SUB 

DH,42H 

SET_VID: 

MOV 

DL,DS: [BX+31 

SUB 

DL,40H 

XOR 

CH,CH 

MOV 

CL,DS: [BX+6] 

SUB 

CL,43H 

CALL 

VIDEO 

ADD 

DH,41H 

MOV 

DS: [BX+5],DH 

JMP 

KEY_DB 

DB_NOSP: 

CMP 

AH, ICH 

JE 

DB_ENTER 

MOV 

AL.DS: [BX+1] 

CMP 

AL,41H 

JNE 

CHK_ESC 

JMP 

KEY_DB 

CHK_ESC: 

CMP 

AH.OIH 

JE 

ERASE 

JMP 

KEY_DB 

ERASE ; 

CALL 

INIT 

ERASE_BOX: 

PUSH 

CX 

PUSH 

BX 

PUSH 

DX 

XOR 

AH,  AH 

MOV 

AL,DS: [BX+61 

SUB 

AL,41H 

PUSH 

AX 

XOR 

AL,AL 

MOV 

AH,0FH 

INT 

lOH 

XOR 

AL,AL 

MOV 

AH,02H 

INT 

lOH 

POP 

AX 

MOV 

CX,AX 

MOV 

AH,09H 

MOV 

AL,20H 

MOV 

BL,07H 

INT 

lOH 

POP 

DX 

ADD 

DH,01H 

POP 

BX 

POP 

CX 

LOOP 

ERASE_BOX 

MOV 

AL,41H 

MOV 

DS: [BX] ,AL 

JMP 

EXIT 

DB_ENTER: 

MOV 

AL,42H 

MOV 

DS: [BX] ,AL 

;  restore  the  original  registers  from 
;  the  system  stack 


;*  LABEL:  EXIT  * 

•  **yfTV-}V**Vf*->V*yr’****‘>V*VrVr':V';r****iVi^r*yr**'>V'>V**** 
y 

EXIT;  POP  SI 


START 


*  SUBROUTINE:  INIT  * 

**yf*yryr'ArytVfyr*yryrytyryp*yryryryrivyryfy'fypyryryfyryryifVt‘jvytyiryrvir 


get  menu  row  count 

load  CL  with  the  final  menu  row 
subtract  the  initial  menu  row 
increment  row  count 

XOR  CH,CH 

MOV  CL,DS:[BX+41 

SUB  CL,DS:[BX+2] 

ADD  CL,01H 

initialize  cursor  position  registers 

load  DH  with  start  row 

convert  from  ASCII  to  Integer  value 

load  DL  with  start  column 

convert  from  ASCII  to  Integer  value 

MOV  DH,DS:[BX+21 

SUB  DH,41H 

MOV  DL,DS;[BX+3] 

SUB  DL,41H 


**yr**TV******3V*')V*********'iV********iV**** 

*  SUBROUTINE;  VIDEO  * 

***yr*yfypyrycyryf*yf^V';vyrVc*'>v*yfyryfypyr*yryryr*yryiryrVtyryryr*5V 


VIDEO 


PUSH  BX 

CHG_VIDEO:  PUSH  CX 

y 

;  get  current  video  mode  and  page 


on  return  BH  =  video  page 

XOR  AL.AL 

MOV  AH.OFH 

INT  lOH 

set  cursor  position 

XOR  AL,AL 

MOV  AH,02H 

INT  lOH 

read  character  and  attribute 

on  return:  AH  =  attribute 
AL  =  character 


XOR 

AL,AL 

MOV 

AH,08H 

INT 

lOH 

;  write  reverse 

video  of  character 

1 

CMP 

AH,70H 

JNE 

REVERSE 

MOV 

BL,07H 

JMP 

STRING 

REVERSE: 

MOV 

BL,70H 

STRING: 

MOV 

CX.OIH 

MOV 

AH,09H 

INT 

lOH 

;  increment 

cursor  column 

ADD 

DL,01H 

;  decrement 

loop 

counter 

POP 

CX 

LOOP 

CHG_VIDEO 

PUSH 

DX 

MOV 

DH, lAH 

XOR 

AX,  AX 

MOV 

AH,02H 

INT 

lOH 

POP 

DX 

POP 

BX 

RET 

VIDEO 

ENDP 

*  SUBROUTINE:  CUR_INIT  * 

yf*VrVeVfyr*V(’***yrVlr*'>VVIryf***Vr***iVyfyrVfyf’A’’jV*’fr*'3!'f*'>V’A- 


CUR  INIT 


PROC 


NEAR 


;  load  CX  with  field  length 

;  load  CL  with  string  length 

;  convert  ASCII  to  integer  value 

;  and  adjust  for  border 

XOR  CH,CH 

MOV  CL,DS:[BX+61 

SUB  CL,43H 

y 

;  load  DX  with  cursor  position 

y 

;  load  DH  with  active  row 

;  convert  ASCII  to  integer  value 

;  load  DL  with  column 

;  convert  ASCII  to  integer  value 

;  and  adjust  for  border  window 

1 

MOV  DH,DS:[BX+5] 

SUB  DH,41H 

MOV  DL,DS:[BX+3] 

SUB  DL,40H 

RET 

CUR_INIT  ENDP 


*  SUMMARY; 

*  The  CDT_M  format  file  contains  the  screen  formats  which  allow  the 

*  user  to  make  changes  to  the  data  items  displayed  on  the  screen. 

*  There  are  four  full  screen  pages  in  this  format  file. 

* 


@1,0 

@  2,  9 

@  4,11 

@  4,17 

@  6,6 
@7,5 
@  8,  7 

(3  4,46 

@  6,45 

@  8,46 

(3  8,56 

@  11,37 
@  12,  0 
@  10,36 
@  13,  2 
@  14,12 
@  15,  8 
@  14,49 
@  18,35 
@  19,  0 
@  17,34 
@  20,  2 
@  21,12 
@  22,  4 
@  22,18 
@  21,49 
READ 
@  19,  0 
@  15,  0 
@9,0 
@3,0 
@  1,0 
@  2,  9 

@  4,24 

@  4,30 

@  6,21 
@  8,16 
@  4,47 

@  6,49 

@  8,47 

@  10,11 
@  12,23 
@  14,23 


TO  3,79  DOUBLE 
SAY  'INDIVIDUAL  C 
SAY  'SSAN  ' 

SAY  SSAN 
SAY  'First  Name' 
SAY  'Middle  Name' 
SAY  'Last  Name' 
SAY  'Matric  //' 

SAY  'Birthdate' 
SAY  'Age' 

SAY  'Sex' 

SAY  '  LOCAL  ' 

TO  16,79 
TO  12,44 

SAY  'Street  Addrt 
SAY  'City' 

SAY  'Zip  Code' 

SAY  'Phone' 

SAY  '  PERMANENT  ' 
TO  23,79 
TO  19,46 

SAY  'street  Addrf 
SAY  'City' 

SAY  'state' 

SAY  'Zip  Code' 

SAY  'Phone' 


CADET  DATA  -  PERSONAL  INFORMATION 


(Page  1  of  4) 


GET  F_NAME 
GET  M_NAME 
GET  L_NAME 
GET  MATRIC 
GET  BIRTHDATE 
GET  AGE 
GET  SEX 


PICTURE  '@R  999-99-9999' 
PICTURE  '!!!!!!!!!!!!!!!' 
PICTURE  '!!!!!!!!!!!!!!!' 


PICTURE  '!!!!!!! 
PICTURE  '999999' 

PICTURE  '99' 
PICTURE  ' ! ' 


lilt' 


GET  LOCAL_STRT 
GET  LOCAL_CITY 

GET  L0CAL_ZIP  PICTURE  '@R  99999-NNNN' 
GET  L0CAL_PH0N  PICTURE  '@R  999-9999' 


GET  PERM_STRT 
GET  PERM_CITY 
GET  PERM_STAT 
GET  PERM_ZIP 
GET  PERM  PHON 


PICTURE  'AA' 

PICTURE  '@R  99999-NNNN' 
PICTURE  '(SR  (999)999-9999' 


TO  23,79 

TO  19,79 

TO  15,79 

TO  9,79 

TO  3,79  DOUBLE 

SAY  'INDIVIDUAL  CADET  DATA 

SAY  'SSAN  ' 

SAY  SSAN 
SAY  'AS  Class' 

SAY  'Category  Type' 

SAY  'Four  Year  Cadet' 

SAY  'Prior  Service' 

SAY  'Waiver  Required' 

SAY  'Semester  Interview' 
SAY  'Height' 

SAY  'Weight' 


ADMINISTRATIVE  INFORMATION  (Page  2  of  4) 

PICTURE  '(3R  999-99-9999' 

GET  AS_CLASS  RANGE  1,5 
GET  CAT_TYPE  PICTURE  ' ! ' 

GET  FOUR_YR  PICTURE  'Y' 

GET  PRIOR_SVC  PICTURE  'Y' 

GET  WAIVER_REQ  PICTURE  'Y' 

GET  SEM_INTRVW 

GET  HEIGHT  RANGE  58,83 

GET  WEIGHT 


3 

10,52 

SAY 

'Weigh  Date' 

GET 

WEIGH_DATE 

i 

12,54 

SAY 

'Run  Time' 

GET 

RUN_TIME 

PICTURE  '3R  99:99 

(§ 

14,54 

SAY 

'Run  Date' 

GET 

RUN_DATE 

(3 

16,  2 

SAY 

'Pursuing/Conditional  Status' 

GET 

PC_STATUS 

PICTURE  ' ! ' 

3 

18,25 

SAY 

'Race' 

GET 

RACE 

PICTURE  ' ! ’ 

16,54 

SAY 

'FSP  Date' 

GET 

FSP_DATE 

@ 

18,55 

SAY 

'Form  48' 

GET 

F0RM_48 

20,  2 

SAY 

'Physical  Qualification  Date' 

GET 

PHY_DATE 

3 

22,12 

SAY 

' Phys ica 1  Category ' 

'Graduation  Date' 

GET 

PHY_CAT 

PICTURE  ' ! ' 

3 

20,47 

SAY 

GET 

GRAD_DATE 

(3  22,47 
READ 

SAY 

'Commission  Date' 

GET 

COM_DATE 

@  1,  0  TO  3,79  DOUBLE 

@  2,  9  SAY  'INDIVIDUAL  CADET  DATA  -  ACADEMIC  INFORMATION  (Page  3  of  4)' 

(§  4,  0  SAY  'SSAN' 

(9  4,  5  SAY  SSAN  PICTURE  '@R  999-99-9999' 

@  4,19  SAY  'Scholarship  Type'  GET  SCHLR_TYPE  RANGE  0,4 

@  4,42  SAY  'Scholarship  Expiration  Date'  GET  SCHLR_DATE 

@  6,  0  SAY  'Major'  GET  MAJOR  PICTURE  '!!!!' 

@  6,14  SAY  'Semester  GPA'  GET  SEM_GPA  RANGE  0,4 

(9  6,35  SAY  'Cumulative  GPA’  GET  CUM_GPA  RANGE  0,4 

@  6,59  SAY  'AFOQT  Date'  GET  AFOQT_DATE 

@  8,  0  TO  18,37 

<a  8,40  TO  18,79 
@  19,  0  TO  24,37 
(3  19,40  TO  24,79 
(3  8,56  SAY  'ACT  SCORES' 

(3  8,12  SAY  'AFOQT  SCORES' 

@  19,14  SAY  'SAT  SCORES' 

(3  19,44  SAY  'MINIMUM  REQUIRED  COURSES  COMPLETE’ 

(3  9,  9  SAY  'Quanitative'  GET  AFOQT_QUAN  RANGE  0,99 

@  11,14  SAY  'Verbal'  GET  AFOQT.VERB  RANGE  0,99 

(3  13,03  SAY  'Academic  Aptitude'  GET  AFOQT_AA  RANGE  0,99 

(3  15,15  SAY  'Pilot'  GET  AFOQT_PLT  RANGE  0,99 

(3  17,11  SAY  'Navigator'  GET  AF0QT_NAV  RANGE  0,99 

(3  9,56  SAY  'Math'  GET  ACT^MATH  RANGE  0,36 

(3  11,53  SAY  'English'  GET  ACT_ENGL  RANGE  0,36 

@  13,45  SAY  'Natural  Science'  GET  ACT_NSCI  RANGE  0,36 

@  15,46  SAY  'Social  Science’  GET  ACT_SSC1  RANGE  0,36 

(3  17,50  SAY  'Cumulative'  GET  ACT_CUM  RANGE  0,36 

g  21,  7  SAY  'Math'  GET  SAT_MATH  RANGE  0,800 

<§  21,22  SAY  'Verbal'  GET  SAT_VERB  RANGE  0,800 

(3  23,12  SAY  'Cumulative'  GET  SAT_CUM  RANGE  0,1600 

(3  21.48  SAY  'Math'  GET  M_R_MATH  PICTURE  'Y' 

(3  21,62  SAY  'English'  GET  M_R_ENGL  PICTURE  'Y' 

@  23,50  SAY  'Foreign  Language'  GET  M_R_FLAN  PICTURE  'y' 

READ 

(3  1,  0  TO  3,79  DOUBLE 

(3  2,  9  SAY  'INDIVIDUAL  CADET  DATA  -  CORPS  INFORMATION  (Page  4  of  4)' 

(3  4,  0  TO  10,79 

(3  5,21  SAY  'SSAN  ' 

3  5,27  SAY  SSAN  PICTURE  '(SR  999-99-9999 

(3  9,  2  SAY  'AS  Class  Rank'  GET  AS_RNK_POS 

3  9,20  SAY  'out  of' 


(9 

5,53 

SAY 

'Fiscal  Year  Rating' 

GET 

FY_RTNG 

RANGE  0,50 

(9 

7,42 

SAY 

"Detachment  Commander's  Rating" 

GET 

DC_RTNG 

RANGE  0,8 

@ 

9,50 

SAY 

'Field  Training  Rating' 

GET 

FT_RTNG 

RANGE  0,999 

(9 

11,  0 

TO 

15,79 

@ 

12,22 

SAY 

'ALTU' 

GET 

ALTU 

PICTURE  'Y' 

@ 

14,  2 

SAY 

'Field  Training  Completed' 

GET 

FT_C0MP 

PICTURE  'Y' 

@ 

12,56 

SAY 

"Pilot's  License" 

GET 

PLT_LTCENS 

PICTURE  'Y' 

a 

14,57 

SAY 

'Part  Time  Work' 

GET 

WORK 

PICTURE  'Y' 

@ 

16,  0 

TO 

22,79 

@ 

17,12 

SAY 

'Corps  Position' 

GET 

C0RPS_P0S 

(9 

19,  9 

SAY 

'Corps  Auxiliaries' 

@ 

19,27 

GET  C0RPS_AUX 

PICTURE  '@R  ! !  1  ! 

1  1  j  1  1  j  I  1  j  f  1  [  1  1  1  1  1  j  1  1 

(9 

21,  3 

SAY 

'Significant  Information' 

GET 

OTHER. INFO 

CDT  M  VU.FMT 


*  SUMMARY;  * 

*  The  CDT_M_VU  format  file  contains  the  screen  formats  which  only  * 

*  allow  the  user  to  view  data  items  displayed  on  the  screen.  There  * 

*  are  four  full  screen  pages  in  this  format  file.  * 

*  * 


@  1,  0  TO  3,79  DOUBLE 

@  2,  9  SAY  ‘iNDiViDUAL  CADE 

@  4,11  SAY  'SSAN  ’ 

@  4,17  SAY  SSAN 

(9  6,  6  SAY  ’First  Name' 

(9  6,17  SAY  F_NAME 

(?  7,  5  SAY  'Middle  Name' 

@  7,17  SAY  M_NAME 

@  8,  7  SAY  'Last  Name' 

@  8,17  SAY  L_NAME 

@  4,46  SAY  'Matric 

@  4,55  SAY  MATRIC 

(9  6,46  SAY  'Age' 

(9  6,50  SAY  AGE 

(9  6,56  SAY  'Sex' 

(9  6,60  SAY  SEX 

(9  8,45  SAY  'Birthdate' 

(9  8,55  SAY  BIRTHDATE 

@  11,37  SAY  '  LOCAL  ' 

(9  12,  0  TO  16,79 

(9  10,36  TO  12,44 

(9  13,  2  SAY  'Street  Address' 

(9  13,17  SAY  LOCAL_STRT 

(?  14,12  SAY  'City' 

(9  14,17  SAY  LOCAL_CITY 
(9  15,  8  SAY  'Zip  Code' 

(9  15,17  SAY  LOCAL_ZIP 
(9  14.49  SAY  'Phone' 

@  14,55  SAY  L0CAL_PH0N 
(9  18,35  SAY  '  PERMANENT  ' 

(9  19,  0  TO  23,79 

(9  17,34  TO  19,46 

@20,  2  SAY  'street  Address' 

(9  20,17  SAY  PERM_STRT 

(9  21,12  SAY  'City' 

@  21,17  SAY  PERM_CITY 
@  22,  4  SAY  'State' 

(9  22,10  SAY  PERM_STAT 
(?  22,18  SAY  'Zip  Code' 

(9  22,27  SAY  PERM_ZIP 
(9  21,49  SAY  'Phone' 

(9  21,55  SAY  PERM_PH0N 
READ 


T  DATA  -  PERSONAL  INFORMATION 


PICTURE  '@R  999-99-9999' 
PICTURE  '!!!!!!!!!!!!!!!' 
PICTURE  '!!!!!!!!!!!!!!!' 
PICTURE  ’!!!!!!!!!!!!!!!' 


PICTURE  '999999' 


PICTURE 


PICTURE 


(Page  1  of  4) 


PICTURE  ’(9R  99999-NNNN' 
PICTURE  ’@R  999-9999' 


PICTURE  '@R  99999-NNNN' 
PICTURE  '(aP  (999)999-9999' 


( 


I 


( 


3 


(a  19,  0 
@  15,  0 
@9,0 
@3,0 
@1,0 
@2,9 


TO  23,79 
TO  19,79 
TO  15,79 
TO  9,79 
TO  3,79  DOUBLE 

SAY  'INDIVIDUAL  CADET  DATA  -  ADMINISTRATIVE  INFORMATION  (Page  2  of  4)' 
SAY  'SSAN  ' 

SAY  SSAN  PICTURE  '@R  999-99-9999' 


4,24  SAY  'SSAN  ' 

4.30  SAY  SSAN 
6,21  SAY  'AS  Class' 

6.30  SAY  AS_CLASS 
8,16  SAY  'Category  Type' 

@  8,30  SAY  CAT_TYPE 

@  4,47  SAY  'Four  Year  Cadet' 

(@  4,63  SAY  FOUR.YR 

(9  6,49  SAY  'Prior  Service' 

@  6,63  SAY  PRIOR_SVC 

@  8,47  SAY  'Waiver  Required' 

@  8,63  SAY  WAIVER_REQ 

(§  10,23  SAY  'Height' 

@  10,30  SAY  HEIGHT 
(3  12,23  SAY  'Weight' 

!a  12,30  SAY  WEIGHT 
@  14,19  SAY  'Weigh  Date' 

@  14,30  SAY  WEIGH_DATE 
@  10,44  SAY  'Semester  Interview' 


PICTURE 


PICTURE  'Y' 


PICTURE  'y' 


PICTURE  'Y' 


@  10,63 
@  12,54 
@  12,63 
@  14,54 
(9  14,63 
@  16,  2 
@  16,30 
@  18,12 
@  18,30 
@  16,47 
@  16,63 
@  18,47 
@  18,63 
@  20,  2 
@  20,30 
@  22,25 
(9  22,30 
@  20,54 
@  20,63 
@  22,55 


SAY  SEM_INTRVW 
SAY  'Run  Time' 

SAY  RUN.TIME 
SAY  'Run  Date' 

SAY  RUN_DATE 

SAY  'Physical  Qualification  Date' 

SAY  PHY_DATE 

SAY  'Physical  Category' 

SAY  PHY_CAT 

SAY  'Graduation  Date' 

SAY  GRAD_DATE 

SAY  'Commission  Date' 

SAY  C0M_DATE 

SAY  'Pursuing/Conditional  Status' 
SAY  PC_STATUS 
SAY  'Race' 

SAY  RACE 
SAY  'FSP  Date' 

SAY  FSP_DATE 
SAY  'Form  48' 


PICTURE  '(aR  99:99' 


PICTURE 


PICTURE 


PICTURE 


'j 

@ 

22,63 

SAY 

F0RM_48 

READ 

tf.- 
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@ 
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SAY 
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@ 
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SAY 
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@ 
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SAY 
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(§ 

6,48 

SAY 
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@ 

6,59 

SAY 

'AFOQT  Date' 

(§ 

6,70 

SAY  AF0QT_DATE 

(a 
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'a 

8,40 
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TO  24,37 

@ 
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(§ 
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SAY 
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@ 

8,54 

SAY 
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@ 
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SAY 
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@ 
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SAY 
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@ 

9,14 

SAY 
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@ 
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(9 
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SAY 
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@ 
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@ 
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(9 
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(9 
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SAY 
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(9 
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(9 
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(9 
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@ 
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SAY  AFOQT_QUAN 

@ 
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(§ 
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(9 
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@ 
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@ 
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(9 
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(9 
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@ 
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(9 
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@ 
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21,53 
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READ 

(9 
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(9 
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TO 
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(a  11,  0 
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SAY  AS_RNK_P0S 
SAY  'out  of' 

SAY  CLAS_NUM 

SAY  'Fiscal  Year  Rating' 
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SAY  'Field  Training  Rating* 

SAY  FT_RTNG 
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SAY 
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SAY  FT_C0MP  PICTURE  'Y' 
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SAY  PLT_LICENS  PICTURE  'Y' 
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SAY  WORK  PICTURE  'Y* 
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SAY  C0RPS_AUX  PICTURE  '@R 
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